COMMODORE 64 
ae GAMES BOOK 2 


GREGG BARNETT 


a 
aes. 0) 
SSS | Shs oe 
ooh Seema 


COMMODORE 64 
GAMES BOOK 2 


GREGG BARNETT 


a, 
AWA 
v 


MELBOURNE HOUSE PUBLISHERS 


Published in the United Kingdom by: 
Melbourne House (Publishers) Ltd., 
Melbourne House 

Church Yard, 

Tring, Hertfordshire HP23 5LU. 
ISBN 0 86161 178 0 


Published in Australia by: 

Melbourne House (Australia) Pty. Ltd., 
70 Park Street, 

South Melbourne, Victoria, 3205. 


Published in the United States of America by: 
Melbourne House Software Inc., 

347 Reedwood Drive, 

Nashville TN 37217. 


Edited by Gregg Barnett 


© 1984 by Beam Software. 


All rights reserved. This book is copyright. No part of this book may be 
copied or stored by any means whatsoever whether mechanical or 
electronic, except for private or study use as defined in the Copyright 
Act. All enquiries should be addressed to the publishers. 


Printed in Hong Kong by Colorcraft Ltd. 
1st Edition 


DCBA9876543210 


Contents 


INTRODUCTION ............ 0... ccc ees 1 
SYMBOLS APPEARING IN THIS BOOK ............. 2 


FREQUENTLY OCCURRING (AND EASILY 
OVERLOOKED) TYPING ERRORS WITH THE 


COMMODORE 64 ............. 0... ccc nes 5 
CHEXSUM — THE UNIQUE CHEXSUM PROGRAM 

VALIDATION, secs eneencenteusinheene wine seus 7 
MERGE nsec okbb bette ad ee ean oetae ete eees 8 
CHEXSUM AND GRAPHICS CHARACTERS ......... 11 
DUMPER ............... 0. cc cece teens 13 
MIND QUIZ .......... 0. eens 19 
TREASURE HUNT ................. 0.0 cece eee 23 
STEPPING STONES .................. 0. eee eee 29 
PLANE CHASE ............. 0... cc cece tee ees 35 
MINOTAUR ............. 0... cece eens 43 
SPY TRAINING .............. 0.0 c cee ees 51 
DRAGSTER 64 ......... 0. cc ccc cee en 57 
ASTRAL ATTACK ............ 0.0.0 cece eens 63 
STUNTMAN ............... 0.0 cece ees 67 
CONVOY: nc5.c6si oo sho no. dsie ee eee aes 73 
EGGPLANT .............. 0. ccc cece ees 79 
TANK AMBUSH ...................0 00: eee eee eee 87 
BRICK BUSTER ............... 0.0: c eee ees 93 
ALLIGATOR bose k oh 2seue £3 adele esoeeews 99 
ROAD PATROL ............. JA eae oe ete 105 


SNAKEPIT. 5.2.2cc2¢5ehisoteteritssetisetoaeede 113 


WANG -604 opi ceem nad Sianceniieeeuarae acd. 


EXAMPLE OF USING THE SPRITE MANAGEMENT 
PROGRAM ......................000 ccc eee eee 


MACHINE LANGUAGE SPRITE MANAGEMENT ... 
‘SPRITE CREATE’ ...................0..0.0.0005., 
CLUCKY CHOOK ................0.000000 00 econ, 
SOLDIER ........................, eee seis ts 
BIRTHDAY CARD ............... eae a etes sas 4 


INTRODUCTION 


| am very pleased to be able to present this book to you, the 
Commodore 64 Games Book II, a successor to our previous publication, 
the Commodore 64 Games Book. 


The Commodore Games Book has been enjoyed by thousands of 
Commodore users throughout the world, and has been at the top of 
best-seller charts in the United Kingdom, United States and Australia, 
among others. 


This book presents even more to you — exciting and different games, 
clear and legible listings, progressive explanations of the programs and 
a totally new learning experience. 


We have taken a lot of trouble to ensure that the format is as easy to 
follow as possible, and the special Commodore characters are 
especially clear. 


As well we offer a chexsum listing at the end of each program. This 
facility allows you to see at a glance whether the program you have 
typed in contains a transcription error, and pinpoints the line number for 
you! 


| know that you will enjoy this book immensely, and let me wish you 
happy programming. 


Alfred Milgrom 
Publisher 


Symbols appearing in this book 


To aid clarity the graphic symbols of the VIC computer have been 
represented in this book by special symbols designed to look like the 
symbol as it appears on the VIC keyboard. 


For this reason the programs will not look the same on your screen as 
they do in this book. To assist you in determining which symbol 
corresponds to which key the following tables are provided. 


Symbol Symbol 

in the book Keypress in the book Keypress 
By Oo c€ x fr « R 
D x WwW 08 c @ 
Cal oO &J Cx F 
5 Has o« c Fl co Vv 
Fa « &B Ea ox + 
fe o T Zt YY 
an « U imi «x I 
inn oc oa Se o P 
= Cc a EE ocx - 
« 6 | o 4H 
a: Cc J i Co kK 
Em 8 OL ia cK N 
ae | = Mm Co <£ 
B) Co Ss By x x 
Ts] ccf A m& x Z 
ha | i Ff 
SHIFT L i} SHIFT a 
ae SHIFT O ad SHIFT P 
RJ SHIFT I {4 SHIFT U 
F} SHIFT K A | SHIFT J 
cm SHIFT W SHIFT @ 
= =| SHIFT + SHIFT V 
&] SHIFT M™ Pat SHIFT N 
¢ SHIFT Z d SHIFT § 
be ad SHIFT X a) SHIFT A 
nt SHIFT £ = SHIFT D 
= SHIFT x = SHIFT C 
i SHIFT F Swe SHIFT R 
: SHIFT T iT: SHIFT 6G 
73 SHIFT B iT SHIFT — 
DE SHIFT H 2. SHIFT Y 
al SHIFT £ 
“ UP ARROW € LEFT ARROW 
ar PI 

xx The symbol is the special shift key 


located to the left of the left hand shift 


key 


As well as these there are a set of symbols used to represent control 
characters such as colour controls and cursor controls. 


These are represented in the book by a symbol designed to look the 
same as it does on your screen. 


The symbols are: 

Upper case. 

Symbol in the book Eeypress 
fa CLR 
3 HOME 
{e) ‘cursor down 
| cursor up 
| cursor right 
a8 cursor left 
_ ctrl 1 
| ctrl 2 
ctrl 3 
bh ctrl 4 
ES | ctrl 5 
Gn ctrl 6 
ts ctrl 7 
as ctrl 8 
Lad ctrl 9 
__| ctrl fe) 
Ci «4 1 
44 2 
44 3 
« 4 
AA 4 4 > 
wi 4 4 ra) 
i? 4 4 Zz 
sa 44 8 


SPECIAL CHARACTERS 


In the program listings throughout this book spaces have been used 
ONLY as an aid to readability. When you type the programs in on your 
computer these spaces should be left out to conserve memory space. 


As an example the line 
100 POKE 54273, : POKE V + 23,0 
would be typed as 
100POKE54273,!:POKEV+23,0 
on your computer. As you can see the first verson is much more legible. 


The only situation in which a space should be entered into a program 
listing is when the symbol 


appears. This special character does not appear on your computer's 
keyboard but has been placed in the listings to tell you, the programmer, 
when a space is necessary. 


One other symbol appears in the program listings which may not at first 
be recognised. This is the symbol 


and is actually just the COLON symbol located on the key next to 
the L key. 


The letter “I” and the number “1” can cause some confusion at times as 
well as the letter “O” and the number “0”. 


Once you are familiar with them they don’t cause any problems, it’s just a 
matter of recognising the difference. 


The letter | looks like this: T 
The number 1 looks like this: 1 
The letter O looks like this: 0 
The number 0 looks like this: U 


Frequently occurring 
(and easily overlooked) typing errors 
with the Commodore 64 


Lh WD NN 


10. 


. Do not confuse the letter O with the digit @ (zero). 
. Do not confuse the capital letter | with the digit 1. 
. Acomma and a period are not interchangeable. 


_ When a colon (:) is required, do not type a semi-colon (;). The 


reverse rule applies as well. 


. Adouble quote (‘) is not interchangeable with an apostrophe (’). 


. When a program listing shows one or more spaces, do not forget to 


include them (press the space bar). The computer registers a 
space as a fullfledged character. 


. Brackets are important, particularly in the BASIC versions of 


mathematical formulae. A bracket too many, or a bracket short, 
usually causes a syntax error. Exclusion of two outer brackets may 
cause a “logic” error: which will enable the program to run but will 
deliver wrong results. | | 


. Do not forget to press the SHIFT key as well, when you have to enter 


the following characters: 
F rh #, §, %, &, a (, ), [, ]. <, and ? 


_ The “plus” symbol (+) and the graphic symbol + have been 


placed, unfortunately, on the same key. They look alike, but they are 
definitely not interchangeable. 


Brackets are () and not [ ]. 


Overall Advice: 

When you have typed in a program and you can't get in running 
properly, even after numerous debugging attempts, then put the job at 
rest for a day or so. It often happens that you will then find the bug at 
once after resuming the job. 


Chexsum 
The unique CHEXSUM program validation. 


WHY 


When a book of programs such as this book is keyed in, everybody 
invariably makes reading and typing mistakes and then spends ages 
trying to sort out where and what is causing the error (or errors). 


Even experienced programmers often cannot identify an error by just 
listing the relevant line and need to do the tedious job of going back to 
the book, especially with DATA statements. 


Realising that this is a major cause of frustration in keying the programs, 
we decided to do something about it. 


There are two short routines in this book which you should key in and 
save BEFORE you key any other programs in. 7 


Using these routines you will be able to find out if you have made any 
keying errors at all and in which lines, before you even run the program. 


In effect this means that with this book you need not waste time looking 
for keying errors, you simply run the routines and look at the display to 
identify lines containing errors. It's that easy. 


The principle behind the routines is a unique chexsum which is 
calculated on each individual line of the program as you have keyed it in. 
Compare this chexsum value with the value for that line in the list at the 
end of the program listing; if they are the same the line is correct, if not 
there is an error in that line. : 


WHEN 


The simplest method is to enter the MERGE and CHEXSUM programs in 
now and save them to tape or disk. 


You can type in the CHEXSUM program at any time, even if you have 
started to type in a program. You cannot, of course, load in CHEXSUM 
from tape or disk because it will erase all you have typed so far. 


A solution to this is the MERGE program included here that will allow you 
to merge two programs. To use it, you will have to save all you have 
typed in so far onto your cassette or disk, load the MERGE program, and 
run it. 


lf you are using a Datasette it might be an idea to save CHEXSUM and 
MERGE on a separate cassette. This will enable you to save all your 
corrected programs on one cassette and allow you easy access to the 
CHEXSUM and MERGE routines without having to constantly run 
backwards and forwards through the tape. 


HOW CAN YOU TELL IF CHEXSUM 
HAS BEEN CORRECTLY ENTERED? 


After having keyed CHEXSUM (or MERGE) the logical thing would be to 
chexsum these programs too, to ensure that they are correct. But is it 
possible to do this? If you follow the instructions you will be able to check 
them both. 


Type and save CHEXSUM. 
Edit line 62020 and change the value of E from 61999 to 62299. 


Type RUN and check output against the table of values at the end of the 
program. 


If the program is incorrect, edit the incorrect lines and resave the 
program after having reset the values of E in line 62020. 


Type and save MERGE. 


You can only check the data in the MERGE routine. However this is the 
most important part of the routine. All you need to do is ‘RUN’ merge — it 
will check its own data and prompt you if there is an error. 


Here are the routines and instructions on how to use them: 


MERGE ROUTINE 


10 POKE 55,0:POKES6,159:CLR 

26 S=48785:FOR J=S TO S+7S:READ V 

36 C=C+VEPOKE J,ViNEXT 

48 IFC< >8756THENPRINT“OATA ERROR": ENO 
12c6 DATA 169,0,133,18,32,212,225,165 
130 DATA 43,72,165,44,72,56,165,45 


i404 
136 
16@ 
170 
180 
138 
26a 
21a 
Sag 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
MEW 


233 ,2,133,43,165,46,233,-8 
132,494,169 ,0@,133,185,166,43 
164 ,,44,169,0,32,213,255,176 
14,134,45,132 -,46,32,51,165 
164 ,133,449,104,133,43,96,170 
261,4,1944,294,246,19,104,133 
4$4,10494,133,43,24,108,6,3 

164 ,186,136,240,209,208 ,239 


CHEXSUM ROUTINE 


62006 
62610 
6eaii 
62015 
62028 
6e2i2a 
62136 
Betss 
62136 


62isr 
62138 
62140 
62158 
62 168 
62165 
62179 
62188 


Geies 
62130 


T=PEEK( G2 ) #256+PEEK<( 615+1 

INPUT“ TO PRINTER © Y/N) "?:Q% 

IF QS >"Y" THEN6G28290 

CLOSES : OPENS ,4 = CMD4 :PRINTCHRS( 197 CHRSX< 129) 
LINK=PEEK<S 44> s256+PEEKSC 43) 2E=61999 
T=LINK 

LINK=PEEKS T+1>3*256+PEEKC T) 
LN=PEEK<S T+3) *256+PEEKC T+2 > 

IF LNOE THEN PRINT: PRINT" TOTAL="; 

CHS PRINT#4: CLOSES: END 

SS=STRS LN IL =LEN S$)-1°SS=MIOs SH$,2,L3 
PRINT SPC(6-L3;7S%; 

CS=08:N=0:C=0 

FOR P=T+4 TO LINK-2@& !PK=PEEKCP) 

IF PK=143 THEN P=LINK-2:GOTO 62190 

IF PRK=34 THEN C=(C=@) 

IF C=@ AND PK=32 THEN 62198 

IF PK=137 THEN NeN+1:CS=CS+( 203 OR Nd: 
PK=164 

N=N+1°CS=CS+¢ PK OR N> 

NEXT Pi CH=CHt+CStPRINT"="7RIGHTS( STREC CS) 


,-LENCSTR#CCS)>-19:GOTO Geieda 


6esgsg9g REM 


CHEXSUM OF CHEXSUM 


62000@=184¢ 
620910=1618 
62011=1281 
62015=2020 
PAze=2501 
62120=577 
62 130=2067 
62135=2115 
62136=2692 
62137-2908 
62138=931 
62140=1142 
62150=2251 
62160=2373 
62165=1431 
62174=1554 
62 180=3320 
62185=1862 
62190=4223 


TOTAL= 387193 


INSTRUCTIONS 


of GM — 


: LOAD and RUN MERGE. 
: type or LOAD your program. 
; Save your program — type SYS 40705 “CHEXSUM”. 


‘(SYS 40795, 8 for Disk.) 


: RUN 62000 
> answer the question. 


“Y” if you want listing on printer 
“N’ if listing is to be displayed to the screen 


> hit “RUN/STOP” to halt output. 
: type “CONT” to continue. 
: if there are errors, then correct them and start again from 4. 


Because MERGE, on being run, stores itself above BASIC memory it will 
reside there until you switch off the machine or change the top of BASIC 
RAM. From this it follows that you don’t need to continually reload 
MERGE after running it the first time. 
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LASER BATTLE 
see page 139 


Nai 


Aa 


BREAKIN 
see page 157 


ROAD PATROL 
see page 105 


SNAKE PIT | 
see page 115 


CHEXSdUM AND GRAPHICS 
CHARACTERS 


At times it might be difficult to recognise the difference between two 
graphics characters and when you run the CHEXSUM you will get a 
variance in the values. If, after having checked the line carefully, you 
come to the conclusion that the error must be in one of the graphics 
characters, and you are reasonably sure that you keyed what you think 
the character should be, then don’t worry about the CHEXSUM 
variance. When you run the program it will be obvious from the screen 
display what the character should be if it is an important character. 
Some characters don't really matter that much and at times you 
probably won't even be able to find the wrong one in the screen display. 


CHEXSUM can sometimes see a‘.’ as a‘,’ and a‘;’ as a‘:’ if they fall on 
certain positions in a program line. So if a program gives a correct 
CHEXSUM total yet still functions incorrectly, you should check these 
characters, especially within DATA statements. 


NOTE if you decide to run your programs without first checking them, 
then make sure that you SAVE YOUR PROGRAM BEFORE YOU RUN IT! 
The reason for this is that some of the programs will corrupt themselves if 
RUN after being typed in incorrectly. 


The UFO bombs are attacking the city’s barricade! How can you stop 
the defense-wall being smashed? You must replace the bricks in the 
barricade as they are knocked out by the alien forces — but will you 
have time? 


Can you fill in the holes faster than new ones are made? Points are 
gained by filling in the holes — the deeper the hole, the greater the 
number of points you score. 

| moves your truck left, P moves it right and spacebar drops a brick. 


You have only 3 trucks left with which to defend your city — so good 
luck! 
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VARIABLES 
HS = Highest score 


S = Score 

B = Position of bomb 
K = Inkey$ 

AL = Alien 


P = Position of Dumper 
DI = Holes 
DU = Number of Dumpers 


199 
119 
128 
125 


139 
149 


145 


159d 


155 


169 


178 
139 


199 
296 
216 


229 
239 
246 
259 
269 
2798 
289 


296 


35OD 
319 
328 
338 
349 
359 
360 
378 


REM DUMPER 


Print the barrier and the city, set screen up. 


HS=93 

POKES3289, S: POKES3281,3 

PRINT" Bs £8) fe) [3 [83 Ge) ce) Cs) ceo Gl Ee ba "Ss 

FORI=1TO8S: PRINT" 20 «a «ma a2 «2 & &» 2 eel 


zz _ am _ a -_ a _ a. a, Pricey _ _ _ _ a a. _ a 
PRINT" @@ £8] fe) "TAB(S)" 8 2] 88+ te) OB 8 i oe is 
PRINT’ O 3 wewewidt ow ™ ~~ 2. HM f/f 2 Be 
ew #/” §* Be FST ID. Boe oe ee" 
PRINT’ 33 a om ow Wo ™ ~~ Se, 2/7 2 2 ea 5 
, a on: ee, oe eee eee ee 

_ _ _ _ > yo _ _ a _ _ a »_ a _ a a a (ie, 
a z. _ _ _ "5 . 

_ a, PS aa _ ih _ ye a PY _ _ a Po yO _ yO _ 
_ zz _ _ _ a 
PRINT’ O OOS BB B= ras 2S BS BS Bs BE OB 
BS BS BS Bs OB oe" 
DU=3: S=d 
AL=1:AS=" . Ww G&G @e isa w= . ©] 88 88 88 
an 88 . 8 —-— BmBisag @ ." 


P=1339: CO=5494272 
B=9 
K=64: GOTO2499 


Scan the keyboard, move the number, and alien, alien drops 


bricks. 


K=PEEK (197) : IFK=64THEN349 
IFK=3@THENS9S 
=(K=12) -(K=29) ¥2+P! IFD< L3O@STHENSIG 
IFPEEK (D) =16@THEND=D-49 
IFD>PTHEND=D-1 
POKEP, 32: POKEP-41, 32! POKEP-39, 32: POKEP+1, 32: POKEP-49, 32 
POKEP-81, 32: POKEP-8@, 32: POKEP-79, 32: POKEP-121,32: POKEP-119 
,32:P=D 
POKEP+CO, 9: POKEP+1+CO,@: POKEP-41+CO, 4: POKEP-49+CO, 1: POKEP- 
39+CO,1 
POKEP, 81:POKEP+1,91:POKEP-41, 233: POKEP-4@, 98: POKEP-39, 248 
IFPEEK (P+4@) < >32ZANDPEEK (P+4@) < > 169THENS79 
IFPEEK (P+4@) =16@6THENS49 
D=P+49: GOTO279 
AL=AL+ LNT (RND (1)¥3-1) ! IFAL<@THENAL=9 
IFAL>18THENAL=18 
PRINT" E3 "TAB(AL) AS 
IFB>STHENGSS 


15 


382d 
39D 
499 
419 
426 
435g 


469 
4768 
489 
496 
59D 
91d 
329 
3SG 
349 
558 
368 
578 
669 


679 
689 
719 
726 
738 
746 
7598 
768 
778 
736 
79D 
899 
819d 
829 
83d 


IFRND(1)<.8THEN4S9S 

B=1196+AL 

POKEB, 32: B=B+49: IFPEEK (B) =3S2THEN4S9 
IFPEEK (B) < > 169THENS469 

POKEB, 32 

B=9: GOTO499 


Check if this is end of game, keep game looping. 


IFB>1663THENS79 
GOTO679 

POKEB+CO,@:POKEB, 46 

GOTO229 

DI=P-1: IFPEEK (D1+4@) < > 169THENS=S+5 
POKEP-41, 95 

POKEP-41, 233: GOTOSS9 
S=S+1:POKEDI+CO, 2: POKEDI, 169 
FORI=1T019: NEXT 

IFPEEK (D1I+4@) =1690RDI >1623THENS49 
POKEDI, 32: DI=DI+49: GOTOS32 
GOT0669 

GOTO769 


Print scores for game, check if another game, if no then 


stop. 


POKEB+CO, 7: POKEB-1+CO, 7: POKEB+1+C9, 7 

POKEB-1, 77: POKEB, 121: POKEB+1, 78 

IFDU=1THEN769 

POKEB, 32: POKEB-1, 32: POKEBt1, 32 

POKEP, 32: POKEP+1, 32: POKEP-41, 32: POKEP-4@, 32: POKEP-39, 32 
PRINT" BE3 "TABC(ALt+1)" . . om o«= 2 3B OB BE ow ow a” 
DU=DU-1:GOTO199 

FORI=1T01996: NEXT: PRINT" ie] £28] m SCORE"S 

IFS >HSTHENHS=S 

PRINT" EBHI 2. .»«. a» "HS 

PRINT" &§ ANOTHER .« GAME?":POKE198,9 

GETAS: IFAS="Y" THENL29 

IFAS< > "N" THENSSS 

PRINT:PRINT" E Ea 38 TOO . TOUGH . FOR . YOU, . EH » ?” 
END 
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CHECKSUM 


=g 
199=387 
119=1177 
129=729 
125=3166 
139=2918 
149=35929 
145=4551 
15@=2151 
155=2151 
168=1716 
17B=779 
188=3865 
199=1198 
29G=296 
219=974 
229=1621 
239=836 
249=2963 
259=1652 
269=1198 
27B=349499 
289=4378 
299-4991 
39G=358D 
319=3859 
328=1593 
3SG=1231 
3499=2965 
S5G=12083 
369=721 
379=768 
S89=1199 
399=781 
496=2312 
419=1395 
429=374 
459-999 
460-959 
479=332 
489=1199 
999=527 
IBB=299B9 
319=679 
529=1348 
33G=1979 
349=9988 
ISG=232G 
369=1925 
S7G=S31 
669=531 


TOTAL= 


679=2615 
689=1832 
719=872 

729=1778 
73GB=34965 
749=1762 
75SB=13349 
769=2984 
7?7B=1179 
788=696 

79B=17496 
899=1396 


819-1129 
829=2649 


839=129 
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Mind Quiz 


The computer will generate a sequence of four random coloured beads 
which you must guess. You will get eight tries. After each try, the 
computer will respond with a coloured bead to indicate either a right 
colour in the correct place or a right colour in the wrong place. By a 
process of elimination you should be able to guess the correct colour 
code combination, eventually. 


VARIABLES 
D$ 


Message “instructions Y/N” 


A$ = Response to input 

Y = Flag for end of game and screen position of beads 
X = General purpose variable 

G$ = Response to colour bead input 

D% = Array containing random numbers 

B% = Array containing input numbers 
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g REM MIND QUIZ 


Set screen colours, draw borders, print moving title. 


3 POKES4296, 15 

19 POKES3289, 1: POKE649, 1: POKES5S3281, 1 

29 PRINTCHRS (8) CHRS(142): PRINT" By ” 

3d FORX=1925T01962: POKEX, 64: POKEX+54272, 6: NEXT 

49 FORX=1964T01944STEP4@: POKEX, 93: POKEX+54272, 6: NEXT 
5d FORX=1193TO1L983STEP4S: POKEX, 93: POKEX+54272, 6: NEXT 
69 FORX=1985T02922: POKEX, 64: POKEX+54272, 6: NEXT 

768 POKE 1924, 85: POKES52964, 64 

89 POKE 1963, 73: POKE1984, 74: POKE2923, 75: POKE5S5335, 6 
85S POKES62564, 6: POKES6295, 6 


igi PRINT” ome [23 £9] 2 BR w ow mw mw aM ow mAawmw aSam aT 
mam a2En aRa aM al oa aN wo oD" 

139 DIMAS (4) = DIMB%S(4) s DIMD% (4) 

149 Dt" on tlt tlrllm som INSTRUCTIONS a Y/N «2? 


" 
a _ z_ a _ a _ =z 


i4i PRINT” (23) [e3 ” 

142 PRINT" ©) BS BB! La "3 DS: FORX=1T079: NEXT 

144 DS=DS+LEFTS (DS, 1) 2 DS=MIDS (DS, 2, 36) 

159 GETAS: IFAS<X >"N" ANDAS<X >" Y" THEN1L42 

179 GOSUB 699 

189 PRINT" Be3 £89 "SPC(18)"M) . PLAY . ME"CHRS(13)SPC(18)" [9] S) 
am PLAY . SOMEONE . ELSE" 


Determine player, print board on screen, input and draw 


guess 


199 GETAS: IFAS< > "M" ANDAS<X >"S" THENL9S 
195 PRINT” 3 3 "SPC(16S)" ow we lm meas "CHR 1 


" 
a _ = _ =z 


296 IFAS="M" THENGOSUBS59: GOTO319 

238 R=1 

249 FORX=1TO4 

258 GETAS: IFAS=CHRS (29) ANDX> 1 THENX=X-1:R=R-2! POKE1@67+R, 169! 
POKE1967+R+54272, 14 

255 IFVAL (AS) <SORVAL (AS) >STHEN2Z59 

269 A%(X)=VAL (AS) 5 POKELG67+R, 81! POKE1967+R+54272, A%(X)-1 

286 R=R+2:NEXT 

318  GOSUBS35 

325 PRINT” "SPC (32)" [8] £9] tJ i} FA 3= @ f) [2] [9] 88 OB 
8 m& 4= @ ©] [9] GG] 88 8S 88 FES= @ Pf] [2] )] 88 88 BB Ba6 
= @ ©) 3 [9] §8 08 88 ES 7= @ ©] fe] fo] 88 88 88 Gi s= @ 
ES. 

336 Y=849:R=1 

349 PRINT" &3 "SPC(25) "YOUR . GUESS" 

342  POKE5S4277, 199: POKES4278, 248: POKES4273, 17: POKES4272, 37 

345 9 POKES4276, 17: FORX=1T0359: NEXT: POKES4276, @: POKES4277, 6: POKE 
54278,9 

S58 =O PRINT" B3"SPC(25)" 2. «2 wa mamememe mo ht lt et 


"i tt 
_ Be 
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372 
389 
39D 
498 
412 
439 


459 
469 
4728 
489 
499 
39D 
319 
3268 
93d 
548 
559 
369 
S72 
589d 
699 


629 
4639 


649 
6769 


696 
692 


495 


7GB 


716 


726 


738 


748 


759 


769 
789 


79D 


FORX=1T0O4: D%(X) =AR(X) | NEXT 

FORX=1TO4 

GETAS: IFAS=CHRS (29) ANDX> 1 THENX=X-1:R=R-2: POKELGG7+R+Y, 32 
IFVAL (AS) <SORVAL (AS) >STHENS9IS 

B% (X) =VAL (AS) : POKELG67+R+Y, 81: POKEL9467+Rt549272+Y, BR(X) -1 
R=R+2: NEXT 


React to players input, generate a response, print it! 


FORX=1T0O4: IFB%(X) =D%(X) THENGS=GS+" "3D%(X) =255: BY (X) =254 
NEXT 

IFD%(1)=B% (2) THENGS=G$+" @ °:D%(1)=255: B% (2) =254 
IFD%(1)=B% (3) THENGS=GS+" @& "3D%(1) =255: B4(3) =254 
IFD%(1)=B% (4) THENGS=GS+" @ 93D%(1) =255: BK (4) =254 
IFD%(2) =B%(1) THENGS=GS+" @ "3D%(2)=255:5 B4(1) =254 

IFD% (2) =B% (3) THENGS=GS+" @& "3D%(2) =255: B4 (3) =254 
IFD%(2) =B% (4) THENGS=GS+" @& "3D%(2) =255: BR (4) =254 
IFD%(3) =B% (1) THENGS=GS+" @ "3D%(3) =255: BR (1) =254 

IFD% (3) =B% (2) THENGS=GS+" @ °3D%(3) =255: B4(2) =254 

IFD% (3) =B% (4) THENGS=GS+" @ "3D%(3) =255: BR (4) =254 

IFD% (4) =B% (1) THENGS=GS+" @ ":3D%(4) =255: BR (1) =254 

IFD% (4) =B% (2) THENGS=GS+" @ "3D%(4) =255: B4(2) =254 

IFD% (4) =B% (3) THENGS=GS+" @ "3D%(4) =255: B4(3) =254 

PRINT” Ea ":FORX=1TO( (Y-49) /49) :PRINT" £83 °5 SNEXT2:PRINTSPC (1 
3)" Ba "Gs 

IFGS=" @ @ @ @ "THENDS="YES": GOTOSSS 

IFY=126THENDS="NO" : GOTOS89 

Y=Y-126: GS=""7R=1 

GOTOS49 


Print instructions, congratulations and prompt to play 


again. 


IFAS="N°" THEN789 

PRINT" ba [8 f3 G2 td wo 

a INSTRUCTIONS 2 m»2 m- om» 
” 

Pe. 

PRINT" {8} (83 IN . THIS « GAME . YOU . CAN « PLAY o« THE « CO 

MPUTER 2» =-2 =m» =m» m» m» mo» m» » #& OR «2 A o& HUMAN 4. OPPON 

ENT 

PRINT" £83 . YOU . HAVE . £37 ES . CHANCES « TO o CRACK o 

THE . CODE" 

PRINT” £83 TO . ENTER . COLOURS . USE . KEYS 2 «= FAS oa & 

40. 5a 6 n 7 ew SE" 

PRINT” £8) «© »m m om PRESS . DEL o« IF « YOU « MAKE 2A a M 

ISTAKE" 

PRINT" . «= £2 BS - @ ES oo. o» MEANS . RIGHT . COLOUR « 

RIGHT . SPOT" 

PRINT" . «= (8] Fa oo @ ES «© o»«» MEANS «. RIGHT . COLOUR ao 

WRONG . SPOT 

PRINT’ id (3 2 (2 2 m2 m2 m2» m2» m» wm om» a PRESS « RETUR 


GETAS: IFAS< >CHR# (13) THEN769 
PRINT" ba "3 


FORX=1TO8 
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69g «6 PRINT" Bw eo OTT TK KK OK JB ek kl elt 
_ _ ry PN _ > a, a a, _ a _ a, a _ 
z_ _ a, _ _ y a z_ | ay, _. _ _ ky Be fi, a a 
895 PRINT" no mam a | ee ee ee” a” 
818 NEXT 
826 PRINT" 2. 2 ow “TT TP PKK KK; | 
838 PRINT” Ed £8) G83 fe] M G2] [9] GBA £8) [8] GOS £8) fe) BHT £8) £2 88 
Ei] 5 GER i) 9 BM fel 8) BO fed fl SN £8) fe) Be D" 
835 FORX=1T09: FORY=6TO2: POKE1926+X+Y%49, 169: POKESS298+X+Y*4G, 1 
4: NEXTY, X 
849 RETURN 
859  FORX=1T04 
868 FORY=1T03:E=RND(1)*5+32NEXTY 
878 A%(X)=E!:NEXT: RETURN 
880 FORX=1T04: POKE1968+C, 81: POKE1968+C+54272, A%(X)-1:C=C+2! 
NEXT 
S78 PRINT" 3 "3: IFDS="NO"THENPRINTSPC (16) "BAD « LUCK » IT » WA 
S . THIS" 
996 IFDS="YES"THENPRINTSPC (16) "GOOD . ON « YOU . YOU » GOT «1 
TT" 
916 PRINT” EY fey £2) "SPC(16) "PLAY . AGAIN » Y/N « ?" 
926 GETAS: IFAS<>"N°ANDAS< >" Y "THENS2G 
93g IFAS="N" THENPOKES, 9: SYS 
949 RUN 
CHECKSUM 288=776 67B=525 
31G=393 699=938 
325=7246 692=2938 
336=823 695=5768 
g=G 349=1477 79GB=3494 
5=595 342=2775 719=3815 
19=1646 345=3562 72G=3993 
29=1439 358=1456 7 39=3447 
3G=2644 378=1762 749=3415 
49=2939 38G=679 7S5B=3099 
59=2938 399=4335 769=1719 
69=2658 498=1972 788=435 
7G=1176 419=4295 79B=678 
89=2359 439=77gG 899=S5992 
85=1178 459=4424 895=992 
191=2483 469=131 819=131 
13G=1376 479=3439 829=2194 
149=2568 489=3439 83G=3392 
141=266 499=3441 835=5139g 
142=1684 598=3439 849=143 
144=2231 519=3441 859=67f8 
159=2324 529=3443 869=2197 
17G=396 539=3439 879=935 
189=4416 549=3441 889=4297 
19G=2322 559=3443 899=3678 
195=3992 569=3441 99B=3442 
28B=1676 579=3443 F1B=1979 
23G=312 589=3443 929=2339 
248=676 69G=33G1 93B=1366 
259=5527 62G=2866 949=139 
255=1967 639=1923 
269=3595 6499=1542 TOTAL= 214998 
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Treasure Hunt 


Move the little man round the maze collecting the dollars as you go 
along but keep moving quickly. If you stay still for too long a killer duck 
will eat the little man so beware. The more dollars you collect, the higher 
your score. 


VARIABLES 

L = Difficulty level of game 
A$ = Key pressed 

X = X position on screen 

Y = Y position on screen 

Z = Player screen position 
SC = Score 


BX = Ducks X position 

BY = Ducks Y position 

NN = Number of dollars collected 
BZ = Ducks screen position 
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16 
20 
25 
26 


238 


3G 
32 
34 
36 
37 
38 
39 


46 


196 
208 
219 
228 
230 
2496 
299 
SOE 
19696 
1919 
1929 
1932 
1169 
1119 
1126 
1139 
1299 
1219 
1226 
1236 
1399 
1319 
1329 
13364 
1566 
1519 


REM TREASURE HUNT 


Set the screen colours, dimension arrays, set difficulty 


level. 


POKES3289, 4: POKES5S3281,@:PRINT" & ” 
DIM D(S@) 

IFPEEK (53272) =21 THENGOSUBSS9¢ 
PRINT" Ba I 9) (3 2 2 ow mw me mrimemeimem mm om 
am 'TREASURE . HUNT!" 

PRINT" £23 £93 ES . WHAT . LEVEL . DO a YOU . WANT (1=EASY, 3= 
HARD)" 

GETAS: IFAS=" "THENSS 

IFAS="1" THENL=G, 99 

IFAS="2" THENL=9,. 97 

IFAS="3" THENL=9. 95 

IFAS< >" 1" ANDAS<K > "2" ANDAS<K 9" S" THENSS 

FORI=552946T056295: POKEI, 14: NEXTI 
PRINT" §3 [83 fey £832 £92 (83 (293 . o 
z a ile, a _ _ a yO _ a _ 


2 
=z - Be i, - cg a> ae a 


GOSUB1G96¢ 


Ce ee ee ee ee” ae” ae + 
ee ee ee ee” ee ae 


Move the man around the maze and randomly fire the duck. 


YHL72X=1152Z=19249+4GkY+X: POKEZ, GD 

GETAS 

IF AS="A"THENL OBS 

IF AS="2Z"THEN1196 

IF AS="."THEN1299 

IF AS=", "THEN1366 

IF RND(9) >LTHENGOSUB2999 

GOTO 299 

POKEZ, 32: Y=Y-1: Z=1924+4GKY+X 

IF PEEK (2) =169THENY=Y +12: Z=1624+4GXY+X: GOTO1L9BSE 
IF PEEK(Z)<>32THENGOSUB 1599 

POKEZ,@: GOTO259 

POKEZ, 32: Y=Y+t1i Z=1024+4GKY+X 

IF PEEK (2) =169THENY=Y-1: Z=1924+490X%Y+X: GOTOL1IS9 
IF PEEK(Z)<>32THENGOSUB 1599 

POKEZ, 9: GOTO259 

POKEZ, 32: X=X+1:Z=1G24+4GHY +X 

IF PEEK (Z) =169THENX=X-1:Z=1924+49%¥7+X: GOTGL239 
IF PEEK (Z)<>32THENGOSUB 1596 

POKEZ, 9: GOTG259 

POKEZ, 32: X=X-1:5 Z=1929+4GHV +X 

IF PEEK (Z)=169THENX=X+t1i Z=1924+49#7+X: GOTO1L33¢G 
IF PEEK(Z)<>32THENGOSUB 15969 

POKEZ,9: GOTO259 

NN=15FORN=49TO57 

IF PEEK (2) =NTHENSC=SC+NN 


24 


1529 
1538 
1549 


1696 
1619 


1626 
1639 
1646 
1459 
1786 
1716 
1726 


2959S 
2985 
2919 
2929 
283B 
29495 
2958 
2969 
2588 
2510 
25268 
2539 
25499 


9OBS 


9H1G 
9926 
9BSB 
9B46 
9OBIH 
9D6G 
9B7B 
9689 
9196 
9116 
9199 
F29G 


NN=NN+ 1:3 NEXTN 
IF SC=83THEN1699 
RETURN 


Print the number of dollars collected, check if end of game. 


PRINT” £83 te) i «© mo» YOU . COLLECTED";SC; "DOLLARS" 

PRINT" £8] £8] &S . .o- DO » YOU om WANT « TO om PLAY om AGAIN( 
m Y Fa / GaN GD" 

GETAS: IFAS=" "THEN1629 

IFAS="Y" THENRUN 

IFAS="N"THENPRINT” bs EG BYE . BYE": END 

GOTO 1629 

PRINT" bia [ey £8) i o THE » BIRD . GOT . YOU!" 

PRINT” {9} (03 &§ . “OU . COLLECTED";SC; "DOLLARS" 

GOTO 1619 


Fire the duck at player and check if duck has killed player. 


REM 

I=9: BY=Y! BX=29 
BZ=1924+4G¥BY+BX: I=I+1 

D (I) =PEEK (BZ) 
POKEBZ, 28: POKEBZ+54272,3 

IF Z=BZORBX=XTHEN1799 

GETAS:IF AS=" . " THEN2599 
BX=BxX-1:GO0TO2919¢ 

N=1: IFBX=29THEN254@¢ 

POKEBZ, D(N) ! POKEBZ+54272, 14 
BX=BX+ 1! BZ=1924+4G*BY+BX: N=N-1 
IF BX<29THEN2519 

POKE BZ, 160: POKEBZ+54272, 14: RETURN 


Set up graphics for program. 


PRINT" (8) G82 (22 fey £02 £8) [82 (93 (93 19 ow mw m= a PLEASE o« W 
AIT » - m SETTING » UP » GRAPHICS": SS=12288 
POKE5S6334, PEEK (56334) AND254 

POKE1,PEEK(1) AND251 

FORI=SSTOSS+2847 

POKEL, PEEK (53248+I-SS) 

NEXTI 

POKE1, PEEK(1)0R4 

POKES6334, PEEK (56334) OR1 
POKES3272, (PEEK (53272) AND24@) +12 
FORI=SSTOSS+7! READA: POKEL, A: NEXTI 
FORI=SS+224T0SS+231!READA!: POKEI,A:NEXTI 
PRINT” ba ":RETURN 

DATAGGD, 69, 24, 69,99, 153,36,66 
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9219 

19996 
19919 
196626 
1GG3G 
199846 
199359 
19949 
19979 
1998H 
19G9D 
19196 
19119 
19129 
19136 
19146 
19159 
191646 
19176 
19266 
19216 
19226 
19236 
19246 
19256 
19266 
19276 
19286 
1B39D 
19319 
19326 
19336 
1934¢ 
19356 
19369 
19376 
193389 


DATA192, 97,99, 127,124, 69,16,16 
RESTORE: FORI=1T016:READA!:NEXTI!Y=6 
READX 

IFX=-1THENY=Y+1:GOTOL9919 
IFX=-2THEN19298 
Z=1924+4G*Y+X!POKEZ, 169: GOTOL9G1I9 
DATA1S,17,18,25,-1 

DATA12, 14,15, 20, 21,23, 24, 27, 28, -1 
DATA11,12,14,18, 21, 22, 24, 26, 27,-1 
DATA14,16,18,19,24,-1 
DATA12,14, 15,19, 21,23, 24, 26, 27, 28, -1 
DATA12,15,17,19,21,23,26,-1 

DATA12, 13,17, 19,21, 22, 23,25, 26, 28, -1 
DATA14,15,17,18,19,21, 23, 26, -1 
DATA12, 149,17, 23, 24, 26, 28,-1 
DATA11,12,14,15, 16,19, 20,21, 22, 24, 26, -1 
DATA146, 17,19, 24, 26, 27, -1 
DATA12,14,15,17,19, 21, 23, 24, -1 
DATA12,17,21, 26,27, -2 
FORX=1234T01253: POKEX, 169! NEXTX 
FORX=1794T01813: POKEX, 169:NEXTX 
FORX=1234T01794STEP4G: POKEX, 169: NEXTX 
FORX=1253T01813STEP49: POKEX, 160: NEXTX 
cc=49 

READXX, YY 

IFYY=-1THENCC=CC+1: GOTO19259 
IFYY=-2THENRETURN 
Z2Z=1924+4B*YY+XX! POKEZZ, CC: GOTO19259 
DATA11,14,15,16,17,15,-1,-1 
DATA16,6,-1,-1 
DATA1S,9,18,12,15,14,16,17,23,15,-,-1 
DATA22,7,22,13,-1,-1 
DATA11,7,22,11,23,8,-1,-1 
DATA24,6,-1,-1 

DATA28,8,28,18,-1,-1 

DATA28, 13,-1,-1 

DATA28,11,-2,-2 


CHEXSUM 


9=¢g 29G=267 
19=1646 216=985 
29=4G1 229=19899 
25=1526 23G8=96G6 
26=2513 249=961 
28=3529 256=1282 
SG=1152 39G=S525 
32=1227 1966=2475 
349=1226 1G1G=3719 


36=1227 
37=2749 
38=1929 
39=2181 
49=492 


199=2692 


1626=1564 
1939=9354 
11968=2474 
1119=3721 
1126=1564 
1139=954 
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1296=2474 
1219=372G 
1229=1564 
1239=954 
13989=24975 
1319=3726 
1326=1564 
1339=954 
158G=1271 
1519=1825 
1528=997 
L5S3G=991 
1599=143 
1699=2593 
1616=3164 


oF wan 
HN 


Ni 
No 
in 


+See Ea Se 
HEPES @ . 
Pees a des ss 
FOOL OO 
FAs cntiennputloirivndesient 


; 


{ 


SEFOMIMONDDD 


i 


STUNTMAN 


see page 67 


HIND SPEED @ 


ee 


Hii 


Ht 


i 
Mi 
Hh mn 


ii 
VN 
iy 


TANK AMBUSH 
see page 87 


ann Ta 
a i 


Hi 


rH 


Ni 


iA 
NE 

H HN AAO 
NH MSE A 
HN A HUN i 


i 


PRN 


HA 
mikes 


Hy 
Hse au teae 


Mh 


DRAGSTER 64 
see page 57 


Hy 


1629=1277 
1639=914 
16499=2995 
16568=583 
1799=1797 
1719=2456 
1729=581 
29GG=G 
29665=13492 
2619=2195 
2620-867 
2639=1436 
2646=1615 
29569=13083 
2669=1406 
2569=1429 
2519=1599 


2526=39897 
2539=19081 


2549=1748 
99GG=4532 
9919=1428 
9929=958 
993G=1312 
9G4G=1473 
995G=286 
9G69=839 
9G7G=13681 
998G=1836 
919G=2178 
F11G=2671 
9199=577 
92GG=1467 
9219=1585 
19999=1874 
19G19=225 


* 19@2G=2167 
19G3G=1992- 


19949=2595 
199359=871 

199469=1758 
19G7B=1762 
19G89=1957 
196GB9GB=192G 
19199=1494 
19116=1923 
19126=1538383 
19139=14149 
19149=2975 
191359=1228 
191469=1582 
19179=1955 
196269=13867 
19219=1871 
19229=2155 


TOTAL= 


1923G=2153 
19249=426 
16259=548 
196266=2354 
1927G=1941 
196286=2987 
1G39G=141¢G 
19319=637 
1G32G=1945 
19339=962 
1934G=1278 
19359=636 
1G369=974 
19379=695 
19389=64938 
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Stepping Stones 


+.*. 


4 


BS 


oe 
pod 


SS 


Es 


& 


8 
8 
8 
& 
¥ 
® 


a & 


tats cf 
Porta St 


a 


Be & 
“ 
na 


Ts ER 


ey 

eas 
ears 

Seats 


% 


ve 


Move to and fro on the magic floating stepping stones. Step off the stone 
and you will sink like a rock. You can take respite on each bank or the 
island in the centre of the river, but the longer you wait, the less score 
you make. You can move up and down or sideways from one stepping 
stone to another but not diagonally. 
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VARIABLES 


MM$ = Stepping stones and river space 
C = Colour offset to screen address 
BG$ = River bank and island 

RR$ = Empty river 


TI$ = Time 

R = On/off river switch 

P = Your location on screen 

Q = Crossed river switch 

SC = Score 

PH = Previous high score 

K = Key pressed 

X = Movement increment/decrement 


19 REM STEPPING STONES 


Define variables 


26 MMS(@)=" Lg CE @  SMMS(1)=" La ES a "SE MMS(2)=" il ES @ "cM 
M$(3)=" ig ERP . ":MMS(4)=" lg EE @ ” 

3d C=54272: POKES42964, 15: POKES4276,9 

46 BGS=" Fi eH MRR RW R 
HU TH Rw wR RR RW R 
eH RH HR R "” 


a a a a a” Se” Se i i i i el 


@ 
PS Pad a Cd et _ 


69 GOTO1999 


Place a new set of stepping stones at right of river, clear left 


199 PRINT” E39 BS BE BS Bi 
EE Bi Bl BE Bl BE OBS 
me te fey oe 


. i Bl Bi 
11 FORI=1TO8: PRINT” £83 88 "3 MMSC(RND(.) #5) § > NEXT 
192 PRINT” (93 "35 

193 FORI=1TOS: PRINT” [93 8H "3 MMS(RND(.) #5) 3 2 NEXT 
194 RETURN 

119 FORI=1TOS: PRINT" BE BI "CHRS(29) 2: NEXT: RETURN 


Move river, print time, score, check if key was pressed and 


move player. 


139d GOSUB1959 

135 PRINT" C23] BE BS) BE BE BE BE OBE TIME="RIGHTS(TI$,9)" Bi 
BE BE BS BS SCORE="SC 

146 PRINT” Ey [82 G3 [3 ";:GOSUBLIG: PRINT" E39 £83 G23 [23 Gs) G3 
Coy Ce) Gey Ged ed oe) ey 6083 "5 ©GOSUB1LIG 

145 IFINT (CABS(R) / STHENP=P-1 

156 K=PEEK (197) 

169 IFK=64THENX=9: GOTO19?7 

179 IFK=1@THENX=-1:GOTO1L9S 

175 IFK=9THENX=-49: R=R-1:GOTO19S 

189 IFK=18THENX=1: GOTO195 

185 IFK=12THENX=49: R=R+ti 

195 IFP+X> LOBSTHENK=9 

196 IFP+X< 1144 THENX=9 


sO 

u 
Q 
> 
z 
=] 
A 
“A 
Vv 


Stepped in river, generate sound of player movement, check 


if river crossed. 


197 IFPEEK (P +X) =320RPEEK (P+X) =169THENG9S 
29D IFP< 11S4THENPOKEP, 192: GOTO295 
291 IFP< 1LSG4THENPOKEP, 299: GOTO295 
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282 
293 
294 
285 


296 
287 


288 


219 


SOD 
319 
329 
338 
6969 


619 


625 
630 
649 


659 
669 
676 


1999 


1929 
1959 


1969 
1972 


19735 
1976 


1989 


19969 
1199 
1119 
1i2¢g 
1139 
1149 


IFP< LS44THENPOKEP, 192: GOTO295 

IFP< 1L864THENPOKEP, 299: GOTO295 

IFP< 1994THENPOKEP, 192 

TFX< SS THENPOKES 4273, 29: POKES4272, 19: POKES4277, 22: POKES4276 
99: POKES4276, 129 

POKES49276,0:P=P+X: POKEP, 179 

IFP< 11 S4ANDQ=9THENG=1:SC=SC+tINT (199999G/TI): TIS="998999": 
GOSUB39¢G 

IFP>186SANDQ=1 THENG=9: SC=SC+t+INT (1999969/TI):TIS="999990": 
GOSUB399 

GOTO13S9 


Sound routine for crossing river, print message, check if 


another game. 


POKES4276, G9: POKES4278, 249 
POKES49276, 33: POKES4273, 6: POKES4272, 296 
FORT=1 T0296: NEXT : POKES9$273, 8: POKE5S4272,9 
POKES4278, 96: RETURN 
PRINT? Bea fe} G23 G23 G83 (23 Ce) fe) b22 [83 cs] £23 G2) 
Ce) ce) fey ce} cel Gey Ge] Ge) Gey 8) f83 [ey fe) [2 ce) oe 
PRINT" . w DROWNED . LIKE . A o« RAT! ": PRINT" [8] £2] 
a a2 2 « ao o« «= o« SCORE « ="SC 
PRINT" £9) £3 . .. PREVIOUS . HIGH . ="PH 
IFSC >PHTHENPH=SC 
PRINT" £83 €93 23 .. j. ANOTHER . GAME . (Y/N) £8] (2) £83 93 £sJ 
GETGS: IFG$="Y" THENL199 
IF GS="N" THENPOKES4276,9: PRINT" by "3 END 
GOTO065¢ 


Print instruction and print the game screen. 


POKES3289,1:POKES3281,1°: PRINT’ bs 9 (2 9 $2 2 «= m= = 
a «a » « « «« STEPPING . STONES" 

FORX=1TO1999: NEXT 

PRINT" 22 £82 BE YOUR . MISSION . IS . TO . MOVE . BACK om & 
aw» FORTH 4 ” 

PRINT" £93 .. ACROSS . THE . SWOLLEN . RAGING . RIVER.” 
PRINT” [ey 9 . TIPPY-TOE . ON . THE . MAGIC . STEPPING . S 
TONES” 

PRINT" £3 . USING . THE . KEYBOARD .. CHARACTERS: - 

= Wit] 2 88 88 Go. 8 De hf] 66 8 8 Z" 

PRINT’ @ €) . »® »2 m2 mo» m» m a a@HIT « KEY o« TO oo BE 
GIN.” 

WAIT19&S, 1 

PRINT" & " 

PRINTBGSBGSBGS; : FORI=1TO8: PRINTRRS: NEXT 

PRINTBGS; : FORI=1TO8: PRINTRRS: NEXT: PRINTBGSBGSBGS" fey " 
P=1864+INT (RND (1) #35) : POKEP, 179: R=9: Q=G: SC=G: TIS="999999" 
GOTO1L39 
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CHECKSUM 


19=9 
29=35917 
SB=1799 
49=7696 
IB=2362 
669=579 
199=2917 
191=2427 
192=3987 
193=2427 
184=1493 
119=1877 
139=295 
135=2641 
149=1883 
145=2719 
159=794 
169=1625 
179=1795 
175=2489 
189=1632 
185=1739 
19S5=1415 
196=1415 
197=2618 
299=1895 
281=1889 
2962=1887 
283=1897 
2949=1278 
295=49165 
2G6=1749 
297=4896 
208=4896 
219=528 
SO9B=1273 
319=1957 
3268=2222 
3S3G=736 
696=1374 
619=3439 
629=1736 
4639=1317 
649=1923 
659=1359 
6469=2613 
6798=3530 
19G693=4931 
192G=1936 
19S9=3377 
1969=2992 


TOTAL= 


1979=3727 
1975=2848 
1976=29168 
1989=2941 
1999=417 

1199=372 

1119=2183 
1128=2898 
1139=4342 
1149=528 


33 


128238 


Plane Chase 


You are the pilot of a jet fighter. Immediately in front of you is a sequence 
of planes moving across your missile sight. The missile sight can only be 
moved up and down by pressing the Q and Z keys. Hitting the spacebar 
will fire one of these lethal projectiles. Beware, it takes time for the 
missile to get to its target. Each hit on the plane will result in a score of a 
hundred points. It is quite difficult to hit a plane so be exacting with 
shots. In each game a player will be given fifteen planes to shoot down 
with one missile per plane. The more planes you shoot down with fewer 
missiles the better your points per shot ratio. 
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K = Keyboard scan 

A = Sprite register 

B = Pointer to sprite 

C = Sprite colour register 

D = Colour of sprite 

E = Number of bytes in sprite 

S = Byte of machine language program 
W = Y axis increment of plane 

D1 = Collision register 

Z = Position of sprite in memory 
XL = Passes X data to machine program 
V = Flag to indicate a missile used 
F = Flag missile in flight 

CN = Timer for missile 

MS = Is this missile’s first pass 

TG = = Topof missile sprite 

TP = Bottom of missile 

M3 = Xaxis increment of plane 

T = Video chip register 

K1 = Entry point of machine program 
SC = Playerscore 

PL = Player number 

P1 = Start of plane movement 

P2 = End of plane movement 

CT = Start of Y axis of plane 

| = General purpose variable 

SH = Number of shots 

T+21 = Sprite on/off switch 

O = X position of plane for memory 
St = Y position of plane in memory 
C1 = X position gun sight register 
C2  =/Y position gun sight register 
M1 = X position of missile register 
M2 =/Y position of missile register 

FI = X position of fuselarge register 
F2 = Y position of fuselarge register 
L1 = X position of left wing register 
L2 = Y position of left wing register 
R1 = X position of right wing register 
R2 = Y position of right wing register 
X2 = X co-ordinate of gun sight 


Y2 = Y co-ordinate of gun sight 
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19 
1S 
29 
25 
38 
76 
9S 
199 
136 
135 
155 
169 
165 
175 
189 
182 
183 
184 
196 
195 


296 
219 
235 
249 
259 
275 
2389 
295 


38D 
315 
329 
325 
338 
Si 
332 


335 
348 


REM PLANE CHASE 


Clear the screen, define variables, build the plane, set 


colours. 


CLR:PRINT" ks "3;CHRS(158); "SETTING » UP » GAME" 
K=197! D1=53278: POKE53289, 3: POKE5S3281,9 
T=53248: 0=17900:S1=17901:KI=18999 
CL=T+#O:C2=T+i:ML=T+2:M2=T+3 
FL=T+4:F2=T+S:Ll=T+6:L2=T+7 
RI=T+8:RZ=T+9:M=T+16 

POKE T+21,@:X2=148: Y2=199 

FORI=@T062: POKE16128+1, 85: POKE16964, 17@! NEXT 
FORJ=1T05 

READA, B,C, D,E: POKEA, B: POKEC, D: Z=B¥64 

IF E=@ THEN 189 

FOR @1=9 TO E 

READ H:POKEZ+@1,H 

NEXT 

NEXT 

GOSUB 593 

FORI=18999 TO 18999+33 

READ S!:POKEI,S!:NEXT 
GOSUB24999 : GOSUB25999: POKET+21, 255 

POKE 53277, 24: POKE53271,4 


Give player's 1 and 2 each 15 goes and print the score. 


FOR JP=1TOZSTEPS 
FORC9=1TO15: GOSUB699 : NEXT 
PL=1 

GOSUB 398: SC=9: SH=9 
FORC9=1TO15: GOSUB699 : NEXT 
PL=2 
GOSUB3996:SC=@8: SH=G: NEXT 
STOP 


Print number of shots, hits and the score. 


PRINT" bs "5: POKET+21,@ 

PRINT TAB(13)5 "PLAYER: "3PL 

PRINT" [93 (83 [92" 

PRINT TAB(13)3"SCORE 2» -© m= m= m= = 
PRINT TAB(13)3"SHOTS 2. -. m= m= m= = 
IFSH=@THENSH=. @1 


ae 
a 


_ > 
> XY 


PRINT TAB(13)3;"HITS 2. mm» ma =m me me =m me me me @E aw "5 


SC/1969 
PRINT TAB(13)3; "POINT . PER . SHOT m= m "3 
PRINT INT(SC/SH) 
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39D 
395 
51g 
315 
529 
338 
935 
337 
349 
545 
959d 
398 
39S 


696 
607 
619 
626 
639 
649 
659 
669 
726 


725 


738 


7359 
768 
776 
738 
79S 
79S 
899 
895 
IBD 


PRINT" 63 fey (9) E83 G8] £e} £8] £9) (e} (02 {93 fe £9)"; 
PRINT TAB(13)53 "PRESS . ANY . KEY . TO . RUN” 
FORK 1=1TO199: GETAS: NEXT 

GETAS: IFAS=""THENSSS 

POKET+21,31°PRINT" Bu "3 

RETURN 


Launch the missile on its way and keep it going. 


AS=PEEK (D1): V=1 

IFMSTHENS29 

MS=1: SH=SH+1: POKET+21,39 

CN=19: TG=14¥644+1: TP=14¥64+61 

X1=X2:Y1=¥2: POKEM1,X1:POKEM2, Y1 

POKETG, 6: POKETP, 6: TG=TG+t3: TP=TP-3 

CN=CN-1 

POKEM1, X1:POKEM2, Y1 

IFCN=1 THENGOSUBSS9: E=6: MS=8: F=9: POKET+21, 31: RETURN 
RETURN 

IFPEEK (D1) AND6=46THENGOSUBI1996: E=1 

POKEM1L,@: POKEM2, 9: RETURN 

FORI=9TO62STEPS: POKEI +896, 6: POKEI+1+896, 255: POKEI+896+2,9: 
NEXT: RETURN 


Launch a plane at random and let player shoot it down. 


POKET+21, 1:MS=9: CN=9 
FORJ=1T019@: GETAS!: NEXT 

RN=INT (RND (1) 5) : IFRN>4ORRN=STHEN61S 

IFRN=1THENP1=6: P2=184:M3=7!W=RND(1)*3:CT=69!:REM RIGHT DOWN 
IFRN=2THENP 1=184: P2=9:M3=-7!:W=RND(1)*3:CT=69:REM LEFT DOWN 
IFRN=3THENP 1=184: P2=9: W=-S¥RND (1) !M3=-7!:CT=1598:REM LEFT UP 
IFRN=4THENP1=9: P2=184: W=3¥RND (1) !M3=7:CT=15@:REM RIGHT UP 
POKEL2, Y4: POKEF2, Y3: POKER2, Y5 

E=9:F=@: POKEC1,X2:POKEC2, Y2: GOSUB593: POKET+21, 31! V=9!: POKEM 
1,8:POKEM2,6 

PRINT" B9 SCORE . om mm =m m m m m» a PLANE « CHASE . 
-— -— mm ow» SHOTS"; 
FORXL=P1TOP2STEPM3: POKEO, XL! POKES1,CT!ISYSKI!CT=CT+W: IFV 
THEN799 

A=PEEK (K) ! IFA=STHENS99 

IFA=62THENGOSUB955: GOTO899 

IFA=12THENGOSUB979: GOTO89¢ 

IFA=69THENF=1 

IFFTHENGOSUB5S@@: IFETHENRETURN 

PRINT" §&3 "3 TAB(6) $SC$3 TAB(36) 3SH; 

NEXTXL 

POKET+21,3 

RETURN 
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955 
949 
978 
975 
1969 
19839 
1945 
193596 
1669 


11999 
119619 
11929 
11936 
3616 

119396 
119669 
11976 
11999 
1299695 
13996 
139819 


13926 
13939 
14999 
14916 
14929 
14936 
15999 
1591¢ 
15929 
15939 
29999 
29916 


2494929 


24938 


Move the gunsight up and down, increment the score. 


IFY2=S3@2THENRETURN 

Y2=Y2-5: POKEC2, Y2: RETURN 
IFY2=199THENRETURN 

Y2=Y2+5: POKEC2, Y2: RETURN 
FORI=1T019: POKE2941, 252 
FORJ=1TOS96: NEXT: POKE2941, 251 
FORJ=1TO39: NEXT 

NEXT 

SC=SC +169: POKE2941,14: RETURN 


Data for sprites and machine code routine, and titles. 


DATA 2949,13,53287,1,62 

DATA 255,9, 255, 255, 8, 255, 255, 9, 255 

DATA 224,9,7,224,9,7,224,9,7 

DATA 224,9,7,224,8,7,224,0,7 

DATA 224,9,7,224,9,7,224,G,7 

DATA 224,9,7,224,9,7,224,8,7 

DATA 224,9,7,224,9,7,224,9,7 

DATA255, 9, 255, 255, 0, 255, 255,94, 255 

REM 

DATA 2941,14,53288,1,98 

DATA 2942, 15,53289,9,62 

DATAG, 24,5,9, 24,9,8, 24,5,5,24,5,8,24,5,5,24,5,8,24,5,8, 24, 
G,9,24,8,9,24,9 

DATAG, 24,9,9,69,9,8,69,5,9,126,9,8,126,G, 255, 255, 255, 255, 2 
55,255 

DATA 146, 66, 73, 196, 66, 73, 255, 255, 255, 255, 255, 255 

DATA 2643, 253,53299,5,62 
DATAG,&9,9,09,9,09,9,0,8,9,08,5,8,59,5,5,8,8,8,9,8,9,8,09,8,5,8, 
G,8,9,5, 
DATAG,9,59,9,5,59,9,8,9,3,9,08,7,9,5,15,9,8,63,8,7,255,8, 255, 
255, 255, 255, 255 

DATA 255, 255,255 

DATA 2644, 254,53291,5,62 

DATA G,9,9,9,9,8,9,8,9,9,9,5,5,9,8,5,0,8,6,8,9,8,5,8,9,9,8 
,9,9,9,9,9,9,9 

DATA 0,9,9,8,9,192,8,8, 224,5,8, 240, 0,8,254,0,8, 255,224,8,2 
55,255,128 

DATA 255, 255, 255, 255, 255, 255 

PRINT" Bs "$3 PRINT: PRINT: PRINT: PRINT" 
KH 


> 


PRINT” 


»> 
> 
p 
% 
»$ 


% 
>> 


az a = 
n 


% 


SRRRRR SD 


as 
PRINT" 


Sp pp pron 
Sb pp Sd Bp 
Sper pp # 
D> rp rORDDD 
Dr rPDdDD 
bro BEd Bd 
>> BSD > 
Shp Bd s 
Dr ddd? 
o> Bb Bd 
>> #8 
Dr dDdDD 
Spb Bp Hd 
oe 
Bp Bop d 


24949 


249959 


24949798 
249196 


241198 


249129 


29139 


249149 


24159 


249169 
242960 
25999 
25919 
25929 
25938 
258499 
25959 


25969 


25975 


25989 
25998 


25196 


25116 
25115 
25129 
25136 
25999 
28599 
2999S 
29508 
SIBGBEA 


SHGB1D 


PRINT” 


rd 
ee = 
& 


rbd? 
Sp ¥d 
DdboD>D 
a 
18S) RHERHRREH BHeS 
bbb? 
bod? 
bd Bd 
>t) & 
> Epp 
TEL 


bbd>D 
o> 8d 


" 
b 
p 


PRINT: PRINT 
PRINT" .« 


b 


OSb Sd Spb SPP ddd 

SSP RRS Bp SRR BHD d 
p 
: 


b 
PPO PrP PROPOR 


a 
a 
~ 
ma 
_ 
=z 
em 
a 
zz 
co 


PrP DP rP ROP RODDD 
2 
Sepp Sper rr nes 
ee 
re ee 
DP PrP PPO RPDRODDD 
PPP PPP PRPPRPRDD 
SHSRSRHRHRSE 
Sb pb SRP dd db Hd 
Sh pp SEP d dad Kp 


FORI=1TO1999 
RETURN 

REM PRINT THE INSTRUCTIONS 

PRINT” ba "3 

PRINT 

PRINT TAB(13)3 "PLANE . CHASE” 

PRINT 

PRINT "THE . OBJECT . OF « THIS « GAME . IS = m TO «= SHOO 
T": PRINT 

PRINT "DOWN .. THE PLANE . WANDERING o« ACROSS » YOUR": 
PRINT 

PRINT "GUN . SIGHT. «. A = TOTAL o. OF o« 15 « PLANES . PER": 
PRINT 

PRINT "GAME . WILL « FLY « ACROSS .. YOUR » SCREEN. ":PRINT 
PRINT "YOU . CAN « MOVE . YOUR . GUN o« UP o AND « DOWN o W 
ITH": PRINT 

PRINT "THE «» @ - AND » Z = KEYS. «© A «= MISSILE « CAN o BE" 
‘PRINT 

PRINT "FIRED . BY « PRESSING « THE « SPACEBAR":PRINT!PRINT 
PRINT TAB(19);"PRESS « KEY = ANY « TO « START"$ 

GETAS: IFAS=""THEN25129 

PRINT" £3 "3 

RETURN 

REM --------------------------- 


+ 
> 
Vi 


REM --------------------------- 

DATA 173,194, 66,141,6, 298, 24, 195, 48, 141,4, 298, 24, 195, 25,14 
1,8,298 

DATA 173,195, 66,141,7, 298,141,9, 298,56, 235, 21,141,5, 298, 96 


CHECKSUM 


3-9 
19=2595 
15=2359 
29=2535 
25=2756 
I8=2766 
78=2957 
9S=1729 

19G=2659 
139=655 
135=2285 
155=782 
169=735 
165=951 
175=131 
189=131 
182=319 
183=1413 
184=835 
199=1729 
195=1217 
299=968 
219=1363 
235=391 
249=1237 
259=1363 
275=392 
289=1446 
295=145 
SHGB=11335 
S1S=1415 
329=286 
325=190998 
SSG=1917 
SS1=1211 
332=2224 
355=1976 
349=912 
345=627 
359=2258 
353=1389 
S5SS=1215 
369=1199 
3465=143 
3O9G=1137 
5935=639 
319=1989 
315=2629 
529=2146 
339=2580 
535=794 


S37=1931 
9949=3281 
945=143 
350=1958 
SIB=10837 
993=4358 
696=1537 
697=1326 
619=2779 
629=3792 
639=3889 
6949=4192 
659=3747 
669=1593 
729=4418 
72957-2884 
738=49478 
73B=149965 
769=1597 
77B=1593 
789=973 
79IB=1272 
793521512 
899=399 
895=616 
9BB=143 
955-881 
9469=1467 
P7B=9S52 
975=1466 
199B=1379 
19S3G=1589 
19495=997 
19359=131 
1968=1674 
1199G=1112 
11919=1763 
11G28=1379 
1193@8=1379 
3616=1379 
11959=1379 
11969=1379 
11976=1763 
11999=95 
129099=1657 
13999=1115 
13919=4357 
13929=3449 
13939G=2528 
194999=1295 
14919=3638 


41 


TOTAL= 


194922=48399 
194939=731 
15999=1295 
15919=4988 
L15G2G=3685 
15939=1494 
24999=4493 
249 1G=3833 
294929=3565 
24993G=3551 
2494949=2995 
249359=3433 
24979=366 
24199=3787 
249119=2737 
249129=2743 
249139=3787 
249199=2739 
24159=3923 
249169=1389 
24269=143 
Z2599G=8 
2591 9=435 
25928=153 
25GSG=149798 
25946=153 
25959=3398 
25969=3542 
25979=3241 
25989=3126 
2599 9=3669 
251968=3122 
25119=3195 
25115-2599 
25129=1325 
251398=435 
25999=143 
28599=98 
2999G=9 
29599=G 
SGBBGB=3996 
39GB1LG=3106 


259173 
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MIND QdIZ 
see page 19 
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STEPPING STONES 
see page 29 ; 
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MINOTAUR 
see page 43 


ASTRAL ATTACK 
see page 63 


SCORE 


Minotaur 


Move the cursor to the exit (white), using smallest possible numbers. If 
numbers used are too large, the mintaur (‘M’) moves one step closer. 


Our object is to determine an integer between @ and 1000; ‘x’ squares 
provide clues; “?’ squares have random values and ‘*’ may improve your 
total score. The smallest total scores are the better ones. Hit ‘T’ if 
trapped. 
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VARIABLES 


LD% = Level of difficulty 

R% = Round 

SN% = Secret number 
D1%,D2%,D3% = Digits of SN% 

PP% = Player’s position 

M% = Minotaur’s position 
LS% = Last score 

TS% = Total score . 

CU = Character under minotaur 
NC% = Number of clues 
T%(I) = Truth array for clues 
61%,62%,63% = Digits of guess 
MR%,MC% = Minotaur’s row, colour 


PR%,PC% = Player’s row, colour 
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79 


76 


8g 
81 
82 
83 
84 
85 
86 
87 


REM MINOTAUR 


Print the board, position player and minotaur, set difficulty 


level. 


PRINT" hs "3 :POKES3S28@, 14: POKES3281,13:PRINTTAB(19)3" gy MIN 
OTAUR . MASTER-MIND": 

PRINT: PRINTTAB(36)3; "BY . A.LACEY": PRINT 

PRINT: PRINT"LEVEL . OF . DIFFICULTY?(1-9)"3 

GETXS: IFX$=""THENS 

IFVAL (X%) < LORVAL (XS) >9THENS 

LD%=VAL (X%) : PRINTLD% 

FORT=1T019@9: NEXT 

GOTO48 

FORI=1225TO1L785STEP4g 

FORJ=9T037 

K1=INT(RND(@) ¥13) 

IFK1 >9THEN3® 

POKEI+J,K1+48: POKEI+J+54272, 2 

GoTo4s 

IFK1< D1BTHENSS 

POKEI+tJ, 24: POKEI+3+54272,3 

GoTa4s 

IFK1< >1L 1 THENSS 

POKEI+J, 63: POKEI+3+54272, 5: GOTO4g9 
POKEI+tJ, 42: POKEI+J+54272,7 

NEXT: NEXT 

POKE 1244, 169: POKESS514, 1 

RETURN 

R%=1:SN%=INT (RND(G) #99941) 

DI%=INT (SN%/ 199) :D2%=INT ( (SN%-D1%¥199) /19) : D3%=SN%-D1%¥1 99 
-D2%X19 

PRINT" Bs "3 :POKES3289, 9: POKE53281, 9: GOSUB29 
PP%=1894:M%=1524: IFPEEK (1894) >48THENLS%=PEEK (1894) -48 
IFPEEK (1894) =4630RPEEK ( 1894) =420RPEEK (1894) =24THENLS%=9: 
POKE1894,48 

TS%=TS%+LS%: CU=PEEK (1524) : POKE1524, 13: POKESS796, 7: POKE1244 
» 169: POKE55516, 1 

PRINT" m® LS ROUND . #"3R%3" @@ 4. LS LEVEL . OF . DIFF. o " 
3LD%5" MB "3 TAB(30)3" LE PLAYER . 1 mm” 
FORI=1TO21: PRINT: NEXT:PRINT” m uo TOTAL . SCORE . "3TS%} 
TAB(21)3;"LAST . SCORE";LS%; 


Move the player round the board and calculate new player 


position. 


C=9:0=1 
GETX$:C=C+1 

IFC=7THEN@=1-@:C=9 

IF@< >STHENSS 

IFPEEK (PP%) >63THENPOKEPP%, PEEK (PP%) -128: @=1:GOTO86 
POKEPP%, PEEK (PP%) +128: @=1 

IFXS=" "THENG1 

GOSUB489: IFPEEK (PP%) >64THENPOKEPP%, PEEK (PP%) -128 


89 

9D 

92 

9S 

94 

95 

96 

97 

98 

99 

199 
192 
194 
195 
1192 
112 
114 
115 
124 
122 
124 
125 
136 
132 
134 
135 
146 
142 
144 
145 
159 
152 
154 
155 
169 
162 
164 
165 
179 
172 
174 
175 
178 


179 


189 


181 


182 
183 
184 
186 
1969 


IFX$="P" THEN19G 
IFX$="0" THEN119 
IFXS="@" THENL 29 

IFX$="5 "THENI39 
IFXS="+" THEN1L4S 
IFXS="6" THENLSG 
IFX$="L" THENI 696 

IFX$="5 "THEN1L79 
IFXS="T" THENL78 

GOTOS1 

IFPEEK (PP%-49) =32THENS1 
LS%=PEEK (PP%) -48 
POKEPP%, 32: PP%=PP%-49 
GOTO189 

IFPEEK (PP%-1) =32THENS1 
LS%=PEEK (PP%) -48 
POKEPP%, 32: PP%=PP%-1 
GOTO189 

IFPEEK (PP%+1) =32THENS1L 
LS%=PEEK (PP%) -48 
POKEPP%, 32: PP%=PP%+1 
GOTO18¢ 

IFPEEK (PP%+49) =32THENSL 
LS%=PEEK (PP%) -48 
POKEPP%, 32: PP%=PP%+49 
GOTO1L8Sd 

IFPEEK (PP%-39) =32THENS1 
LS%=PEEK (PP%) -48 
POKEPP%, 32: PP%=PP%-39 
GOTO18S¢s 

IFPEEK (PP%-41) =32THENS1 
LS%=PEEK (PP%) -48 
POKEPP%, 32: PP%=PP%-41 
GOTO18¢9 

IFPEEK (PP%+39) =32THENS1 
LS%=PEEK (PP%) -48 
POKEPP%, 32: PP%=PP%+39 
GOTO1s¢g 

IFPEEK (PP%+41) =32THENS1 
LS%=PEEK (PP%) -48 
POKEPP%, 32: PP%=PP%+41 
GOTO18¢d 
PR%=INT ( (PP%-1924)/48) :PC%=PP%-PR%X49-1924: GOSUB34G: IFPP% 
{ >M%ZTHENL78S 

GOTO46¢G 


Check if the move was valid and decide if to move minotaur. 


PR&=INT ( (PP%-1924)/48) :PC%=PP%-PR%¥4G-1924 
K1L=PEEK (PP%) : IFKi=463 THENGOSUB296 
IFPP%=M%THENSSS 

IFK1=24THENGOSUB21G 

IFK1L=42THENGOSUBS9G 

IFK1=14649THEN3S29 

KI=PEEK (PP%) -48: IFLS%+K1 >=19-LD%THENGOSUB369 
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192 
194 
196 


296 
292 
219 
211 
213 
214 
216 
226 


222 
224 
225 
226 
227 
228 
230 
232 
233 


234 
235 
236 
237 
238 
246 
241 
242 


243 
245 


246 
2497 
248 
249 
259 


252 
253 
255 


256 
257 
258 
259 
269 


261 
262 


TS%=TS4t+K1 : GOSUB4AS9 
IFPP%=M4ZTHENISSS 
GOoTOosg 


Give player hints about the number. 


I=INT (RND(1)*¥19) ! POKEPP%, 1+48!: POKEPP%+54272, 2 

RETURN 

POKEPP%, 48 

IFNC%>=9THENGOTO295 

K2=INT (RND(@)¥9+1) SIF T%(K2) =1THEN213 

T%(K2) =1ENC%=NC%+1 
ONK2G0T022G, 225, 239, 235, 249, 245, 259, 255, 260 
GOSUB469:PRINT"SUM . OF . DIGITS » OF  SECRET"!:PRINTTAB(9 
)$; "NUMBER . EQUALS o« "3 

PRINTD1%+D2%+D3% 

GOSUB479: RETURN 

GOSUB469:PRINT"SECRET . NUMBER 2 IS o "3 
LFSN%/2=INT (SN%/2) THENPRINT "EVEN" : GOTO228 

PRINT"ODD" 

PRINT: GOSUB479: RETURN 

K=INT(RND (1)*299) +SN%! J=K-29G: IFI<@THENI=9 

IFK> 1999 THENK=1999 

GOSUB469: PRINT"NUMBER » IS . BETWEEN"3J:PRINTTAB(9) 3 "AND"; 
K 

GOSUB479: RETURN 

GOSUB449: PRINT "NUMBER « IS = "3 

IFSN%/5=INT (SN%/5) THENPRINT "DIVISIBLE" : GOTO238 

PRINT"NOT . DIVISIBLE" 

PRINTTAB(9)3 "BY « 5": GOSUB479: RETURN 

L=D1%! IFD2%>LTHENL=D2% 

IFD3% >LTHENL=D3% 

GOSUB469:PRINT"LARGEST .« DIGIT » IN » THE":PRINTTAB(9) 3 "SE 
CRET . NUMBER o IS"3L 

GOSUB479: RETURN 

GOSUB466:PRINT"FIRST » DIGIT »« IN om THE » SECRET":PRINT 
TAB(9); "NUMBER »« IS m= "3 

IFD1%>STHENPRINT"LARGER » THAN « 5": GOTO249 
IFD1%<STHENPRINT"LESS o» THAN o 5":GOTO249 

PRINT"EQUAL « TO « 5” 

GOSUB479: RETURN 

GOSUB469:PRINT"SUM . OF « FIRST »« AND « THIRD": PRINTTAB(9) 
s"DIGITS » IS = "3 

PRINTD1%+D3% 

GOSUB479! RETURN 

GOSUB469:PRINT"ONE OF . THE » DIGITS m IN m THE":PRINT 
TAB(9)$ "SECRET »« NUMBER « IS = "3 

K=INT (RND (1) 3) : IFK=GANDSN%>99THENPRINTD1%: GOTO259 
IFK=1ANDSN% > 9THENPRINTD2%: GOTO259 

PRINTD3% 

GOSUB479: RETURN 

GOSUB46G:PRINT"PRODUCT . OF . THE .« NON-ZERO": PRINTTAB(9)$ 
"DIGITS » IS" 

IFD1%=GANDD2%=@THENPRINTD3%: GOTO268 
IFD1%=GANDD3%=@8THENPRINTD2%: GOTO268 
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263 IFD1L%-STHENPRINTD2%*#D3%: GOTO268 

264 IFD2%=GANDD3%=STHENPRINTD1%: GOTO268 
265 IFD2%-STHENPRINTD1I%*¥D3%: GOTO268 

266 IFDS%=@THENPRINTD1%*#D2%: GOTO268 

267 PRINTDL&XD2Z%HDS% 

268 GOSUB479: RETURN 

295 GOTO23¢d 


Tell player how close he is getting to secret number. 


398  POKEPP%,48 

392 IFTS%<11 THENRETURN 

394 I=INT(RND (8) #199) : IFI>SSOTHENTS%=TS%-19: RETURN 

396 IFIX<1STHENTS%=TS%+59: RETURN 

319 TS%=TS%+19:RETURN . 

328  GOSUB469:PRINT"GUESS » AT o« THE . SECRET . NUMBER":PRINT 
TAB(9) 5 

322 INPUT°AND . HIT » L@ RETURN @@ "3KS 

324 = I= VAL (KS) : IFI=SN%XTHENGSE 

325 G1%=INT(I/19G) : G2%=INT ( (I-G1%&¥1GD) 1B) ! G3%=I-GL%¥1GG-G2%1 
ro] 

326 PRINT" £4 ":PRINT: IFDI%=GL%THENPRINT"’FIRST » DIGIT » CORREC 
T":PRINT 

328 IFD2%=G2%THENPRINT"SECOND o DIGIT »« CORRECT":PRINT 

338 IFD3%=G3%THENPRINT"THIRD « DIGIT » CORRECT" 

332  IFD1I%< >G1%ANDD2%< >G2%ANDD3%< >GS3%THENPRINT"NO DIGITS » CO 
RRECT® 

334 FORT=1T02999: NEXT 

336 R%=R%+1:G0TO79 

368 MR%=INT ( (M%-1924) /49) :MC%=M%-MR%EGB-1924 

362 IFMC%< >PCRTHENS79 

364 IFMR%>PR%&THENMR%=MR%-1! GOTO399 

366 MR%=MR%+1:G0TO399 

378 IFMR%< >PR&THENS76 

372 IFMC%>PC%THENMC%=MC%-1:GOTO399 

374 MC%=MC%+1:G0TO399 

376 IFM%>PP%THEN3S82 

378 IFMC%<PC%THENMC%=MC%+1: GOTO3S99 

389 MC%=MC%-1:G0TO399 

382 MR%=MR%-1 

398 K=1924+49XMR%+MC%: IFPEEK (K) =168THENRETURN 

391 POKEM%, CU: IFCU=63THENPOKEM%+54272, 5: GOTO395 

392 IFCU>=48THENPOKEM%+54272, 2: GOTO395 

393) IFCU=24THENPOKEM%+54272, 3: GOTO395 

394 =POKEM%+54272, 7 

395 M%=K!ICU=PEEK (M%) 

396 POKEM%, 13:POKEM%+54272, 7 

397 K=54272: FORL=KTOK+24: POKEL, @: NEXT: POKEK+5, 96: POKEK+24, 15: 
POKEK+4, 33 

398 =POKEK, 209: POKEK+1, 18: FORT=1TO3@! NEXT: POKEK, 9: POKEK+1,9 

399 RETURN 
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499 PRINT" &. "3 3: IFM%Z=PP%THENS 29 
495 FORI=1TO1S:PRINT" . om. w»«» CONGRATULATIONS! . om. a» CONGRAT 
ULATIONS! "NEXT: PRINT 
41g PRINT" YOU . HAVE . DEFEATED . THE .~ MINOTAUR! !"3 PRINT” YOUR 
am SCORE . IS w "3TS%} 
415 PRINT°’IN . "3R%35" . ROUNDS": GOTO449 
429 FORI=1TOLS:PRINT"® . om. mom a« MINOTAUR, WINS! 2 ow» ow» al 
INOTAUR . WINS! °: NEXT: PRINT 
425 PRINT’ THE . SECRET . NUMBER .. WAS . "3SN% 
449 PRINT: PRINT*HIT » ANY . KEY . FOR . ANOTHER .. GAME” 
445 GETX$: IFXG=" ° THEN4S45 
446 RUN 
459 PRINTCHRS (13) ;CHRS(145)5" . TOTAL . SCORE zj ma m- m «= 
~ m& om «a "3TAB(21)35 "LAST . SCORE 2. «a mm» mom» «2 "3 
4352 PRINTCHRS (13) 5CHRS(1945)3;" .. TOTAL . SCORE . "5TS%5 TAB(21)5 
"LAST . SCORE"5LS%5 
455 RETURN 
469 PRINTCHRS (13) 5 SFORI=1TO21:PRINTCHRS(145) 5 SNEXT: PRINT" "5 
462 PRINTTAB (9) 5 :RETURN 
479 FORI=1TO18: PRINTCHRS (17) 5 5 NEXT 
472 PRINTTAB(35)5" m "5 
474 RETURN 
489 FORI=1112T01138: POKEI, 32: NEXT 
482 FORT=1152T01178:POKEI, 32: NEXT 
485 RETURN 
2996 Ki=INT(RND (9) #14) >PRINTK1, :GOTO2999 
CHECKSUM 
B=G 49=329 F2=947 
1=49975 42=1299 93=949 
2=1829 45-143 94=928 
94=2389 68=2963 95=936 
9=1135 69=5528 96=959 
6=19982 7G=19S83° 97=945 
7=1294 72=3731 98=968 
8=1932 73=4337 99=481 
18=484 74=4575 199=13519 
29=13516 75=5942 192=1181 
22=769 76=35948 194-1596 
24=12097 S89=689 195=533 
26=785 81-993 119=14649 
27=2962 82-1587 112=1181 
28=476 83=927 114=1452 
3G=1932 84=3465 115=533 
31=1744 85=1638 129-1464 
32=4976 84-897 122=1181 
33=1936 87=2962 124=1451 
34=2328 89=963 125=533 
35=1744 99-957 13G=1519 


Game is finished, print congratulations or consolations and 


score. 
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132=1181 
134=1595 
135=533 

1499=1518 
142=1181 
144=1513 
145=533 

15@=1519 
152=1181 
154=1597 
155=533 

169=1518 
162=1181 
164=1512 
165=533 

17G=1519 
172=1181 
174=1596 
175=533 

178=5364 
179=529 

189=353¢ 
181=1946 
182=995 

183=1941 
184=1938 
186=969 

199=3279 
192=1291 
194=995 

196=489 

299=30998 
282=143 

219=515 

211=1489 
213=2621 
214-1484 
216=2589 
228=4728 
222=1999 
224=597 

225=2934 
226=2917 
227=441 

228=728 

239=3495 
232=1286 
233=3259 
234=597 

235-1426 
236=3379 
237=1236 
238=1421 
249=1798 
241=1168 


2492=4891 
293=597 

295=4455 
246=2696 
247=24961 
248=941 

2499=597 

259=4129 
252=656 

253=597 

255=5969 
256=3537 
257=2218 
258=311 

259=597 

269=4231 
261=2284 
262=2283 
263=2929 
264=2282 
265=2921 
266=2829 
267=1999 
268=507 

295=528 

3OG=S15 

3G2=956 

SH94=3178 
3$96=1812 
319-1986 
3296=3389 
322=1679 
329=1664 
325=35928 
326=3812 
328=3822 
SSH=271G 
332=4953 
334=1931 
336=1211 
3469=3341 
362=1253 
3649=2429 
366=1431 
379=1286 
372=2356 
374=1491 
376=999 

378=2358 
389=1492 
382-819 

3998=2898 
391=2868 
392=2453 
SIS3=2256 
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TOTAL= 


394=836 
395=1195 
396=1351 
397=4599 
398=3243 
399=143 
499=1513 
495=4929 
419=4976 
415=1989 
429=4541 
425=2254 
449=2713 
445=1258 
446=139 
459=4669 
452=4697 
455=143 
468=2969 
462=688 
47G=1619 
472=828 
474=143 
489=1677 
482=1681 
485=143 


299G=2312 


363149 


Spy Training 


RR rach: DERE Tne were 


j 
: 
: 


You are at the centre of the screen and the aim is to shoot as many spies 
as you can in the allotted time. Your colour changes randomly and if you 
hit a spy of the same colour, you lose 159 points and you won't get an 
extra round. 


Otherwide scoring is 5@ points per spy hit. 
CONTROLS 


‘Q’, ‘Z’: up, down 
‘|’, ‘P’: fire left, right 
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VARIABLES 

PC = Player's colour 

HT = Spy hit 

NK = No. (own) men shot 
ER = Extra round flag 
TL = Time limit 

CO = Collision flags 

SC = Score 
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19 


15 
29 


25 


32 
49 
ba] 
cote] 
68 
7B 


9D 


95 
199 


119 
126 


139 
159 
169 


299 
219 
2295 
230 
259 
269 


38D 
385 
319d 
312 
315 
, 328 
33d 


REM SPY TRAINING 


Generate the spy sprites, set screen up, push sound routine 


into memory. 


POKES3281,9: POKES3289,9:PRINT" bu Po a a a aa Se. 
ao «2 a wa wo ew ew a SPY wo TRAINING’ 

PRINT’ DR DB MmBeea eww’ 

V=332498: POKEV, 189: POKEV+41, 269: POKE294@, 192: POKEVt+39, 6: POKE 

V+497,1 

POKE2941, 192: POKE2942, 192: POKE2943, 192: POKE2944, 193: POKE29 

45, 1935 POKE2944,193 

FORI=12288T01235@: READ@: POKEI, @: NEXT 

FORI=12352T012414:5 READ@: POKEI, @: NEXT 

POKE29647, 194: FORI=12417T012478: POKEI, @: NEXT 

POKE 12416, 249: POKE12419, 2499 

FORT=49 152T049369: READQ: POKEI, @: NEXT 

TL=69°:PRINT" 2 «2 «a =m» m&» @& wo o& «= a« YOUR . TIME LI 

MIT o0@ IS 2«§ "STL35°" WwW wy" ; 

PRINT" 2... m a a & & «2 a a ahiT oa ANY a KEY «a T 

0 m» START" 

GETXS: IFXS=" " THENYS 

PRINT" £4 "3 ;SFORI=1TO23:PRINTTAB(19)$5" ©] + m m & *3NEXT 
:PRINT" "5; : GOSUB1999 

PC=6 

FORI=1TO3: POKEV+2¥1I, 59: NEXT: FORI=4T06: POKEV+t2#I, 30: NEXT: 

POKEV416, 112 

POKEV, 189: POKEV+1, 159: POKEV+39, 6: POKEVt21,1 

TIs="999999" 

POKEV+t15, 159: GOSUB3S95 


Driver logic, call up spies randomly and move spy master. 


SYS (49152) 

SYS (49182) | 

OS=PEEK (V+21) : IF (OSAND128) < >STHENGOSUBS@@: POKEV+38, 9 
GOSUB39@: IF (PEEK (V+3@) AND126) < >STHENGOSUB3@5 
GOSUB1199: IFTI/69>TLTHEN9SG 

G0T0299 


Place spies on screen, move them up and down randomly. 


IFRND(1)<.9STHENRETURN 

Y=PEEK (V+15) -3O+ INT (RND (1) #690) 2 IFY >23GORY< SSTHENRETURN 
I=RND(1) SIFI<. 2THENPC=2: GOTOSSE 

IFI<.6THENSSS 

IFI<.8THENPC=6: GOTO3S3S¢9 

Pc=8 

POKEV+39,PC: IFRND(1)<.STHENS69 


53 


335 
349 
345 
358 
352 
354 
358 
369 
365 
385 
39D 
S92 
394 
396 


99D 
39S 
916 


S15 
JL? 
328 
325 
338 
verbal 2] 


Joo 
369 


IGS 


91d 


928 


93D 


935 


938 
946 


IFRND (1) <. 5THEN345 

POKEV+3, Y: POKEV+4@, 2: POKEV+21, PEEK (V+21) OR2! RETURN 
POKEV+3, Y! POKEV+tS, Y-35: POKEV+7, Y+25 
FORI=1TO3:K=RND (1)! IFK<. STHENPOKEV+39+1, 2: GOTO358 
IFK< . 6THENPOKEV+3941, 8: GOTOSS8 

POKEV+39+1,6 

NEXT: POKEV+21, PEEK (V+21) GR14! RETURN 

IFRND (1)<. 5THENS85 

POKEV+9, Y: POKEV+43, 2! POKEV+21, PEEK (V+21) OR16!: RETURN 
POKEV+9, Y:POKEV+11, Y-3@! POKEV+13, Y+25 

FORI=4T06: K=RND (1)! IFK<. STHENPOKEV+39+1, 2: GOTO396 
IFK<. 6THENPOKEV+39+1, 8: GOTO396 

POKEV+39+1,6 

NEXT: POKEV+21, PEEK (V+21)OR112!: RETURN 


A spy has been shot, increment score, was he one of yours. 


CO=PEEK (V+39) | X=PEEK (V+14) +2% (PEEK (V+16) AND128) 

IFX >2G66THENSSS 

POKEV+13, PEEK (Vt13) 41:5 HT=6: FORI=1TOS: IF (COAND2“*1) =2* ITHENH 
T=I 

NEXT 

IFHT=6THENPOKEV+21, PEEK (V+21) AND127: RETURN 

IFPC= (PEEK (V+39+HT) AND15) THENSC=SC -299: NK=NK+1: GOSUB129¢ 
SC=SC+50: GOSUB199@: POKEV+21, PEEK (V+21) AND (127-2°HT) 

RETURN 

POKEV+13, PEEK (V+13) -1:;HT=@6: FORI=4TO6: IF (COAND2“*1) =2“ I THENH 
T=I 

NEXT 

GOTOS17 


Terminate the game, print score and number of men killed. 


POKEVt+21,@9: PRINT" £5 Pe a a a a a a ca a cae © 
= -« mo» « GAME . OVER": PRINT” fej [el HWwWw & 
fs] {92 ” 

PRINT” 2o mw mo mao mm me me m&» o a a YOUR . SCORE . W 
AS";SC;5” fe] 23 (3 ty” 

TFNK< SOTHENPRINT"BUT . YOU . KILLED . "3NK3" . OF « YOUR 
a OWN . MEN! ! "3 ER=1:G0TO935 

PRINT"WELL . DONE!!! . - « YOU . DIDN’T . KILL . ANY , OF 
a a a ee a a” a a a a ie Ci Ci Ci i Ci rae «ai 8). 4 
am OWN . MEN” 

IFER=STHENPRINT’ 9 2 ow mo mo wo me me mem me mm wo EXT 
RA « ROUND!!!" 5 FORT=1TO4999: NEXT: ER=1: GOTO1LSE 

GETXS: IFXS=" " THENEND 

GOTO9S9 


1969 
1995 


1G1G 
1199 
1119 
12996 
1219 
1229 
1239 
19GHBS 
196819 


19926 
1L9D3D 


19949 


19956 
19199 


1G119 
1G2BG 


196219 


19229 


19236 


19246 


19256 


19269 


192768 


19289 


19299 


1G399 


Update continually the time and score, data for sprites and 


sound. 


FORI=1913TO1917!POKEI, 32: NEXT 

PRINT" Ba Gey [sy (82 (ey [22 G83 £83 G22 (83 Gey f9) G22 fe) £22 22 oe 
ce] ce] te] £2] £8] [93 BE BESCORE: . "3SC3" &1"3 

RETURN 

PRINT"TIME: . "SINT(TI/69)3" ES"; 

RETURN 

PRINT" §&§ YOU . HAVE . JUST . SHOT . ONE . OF . YOUR . OWN 
a MEN! ! gg"; 
FORT=1TO3999: NEXT 

_ a, a yy yy _. a > _ a _ a a a _ a a za a 
a «a « ww EF"; 

RETURN 

DATAS, 96,9,9, 249,9,9,248,8,5,97,5,5,65,128,9, 255, 248,1,255 
,128,1,243,9¢ 

DATA1, 254, 9,9, 236,9,8, 228,G,1,224,9,1,224,9,1,254,9,0, 254, 
G,9,198,9 

DATAG, 198, 9,9,198, 9,8, 198,8,63,199,9,48,7,8 

DATAG, 12, 8,9, 39,9,5,39,9,1,12,9,3,4,8,63,254,9,3,255,5,1,1 
43,9 

DATAG, 255,9,8,111,9,8,14,9,6,15,8,9,15,9,9, 255,9,5,254,9,0 
,198,9 

DATAS, 198, 9,9,198,8,9,198,8,8,199, 248,1,192, 24 

DATA165, 197, 261,62, 208, 19,56,173,1, 208, 233,6,141,1, 208, 96, 
291,12,268 

DATA251, 24,173,1, 208, 195,6,141,1, 268,96 

DATA165, 197, 201,33, 208,67, 169,193,141, 248, 7, 169, 169,141,114 
,208,173,16 | 
DATA298, 41,127,141, 16, 208,173,1, 208, 141,15, 208, 173,21, 298, 
9,128,141 

DATA21, 268,32, 196, 192,56, 173,14, 268, 233, 2,141, 14, 298,173,3 
@,298,41,128 

DATA2@8, 15, 173,14, 268, 261, 2, 176, 239,173, 21, 298,41, 127,141, 
21,298,96 : 

DATA261,41, 268, 251, 169,192, 141, 248, 7, 169, 218, 141, 14, 268, 17 
3,16, 288,41 

DATA127, 141,16, 208, 173,1, 208,141,15, 208,173, 21, 298,9,128,1 
41,21, 298,32 

DATA196, 192, 24, 173, 14, 208, 195, 2,141, 14, 208, 173, 39, 208, 41,1 
28,298,299 

DATAL73, 14, 268, 261, 2,176,8, 173, 16, 208, 9, 128, 141,16, 208,173 
14,208, 201 

DATA7G, 144, 215, 173, 16, 268, 41,128, 249, 298, 173,21, 298, 41,127 
»141, 21,298 

DATA9G, 162, 8, 232, 268, 253, 173, 24, 212, 208, 6, 169,15, 141,24, 21 
2,96, 169 

DATAG, 141,24, 212,96 
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CHECKSUM 


1=9 
19=3868 
15=444 
29=4982 
25=3984 
3B=2193 
49=2995 
59=2432 
S5=1364 
6B=2159 
79=3546 
9B=2367 
95=1196 
196=3984 
119=381 
129=4733 
139=2698 
159=895 
169=1121 
209=521 
219=528 
226=3472 
238=2553 
259=1719 
268=525 
3OB=1133 
395=3958 
318=2352 
312=836 
31S=1691 
329=387 
33B=1916 


335=1116 
3S49=3196 
345=2588 
359=3646 
352=2179 
354=884 
358=1937 
369=1112 
365=3265 
385=2682 
39B=36494 
392=2181 
394=884 
396=1989 
39G8G=36491 
5SGS5=916 
919=5982 
915=131 
517=2544 
S29=4335 
925=3695 
S3G=143 
S5G=S5G11 
SSS=131 
3469=532 
PSOB=3E33 
719=2532 
92G=5617 
93G=5145 
935=5986 
959=1214 
94G=3534 
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TOTAL= 


1999-1688 
1995=2985 
1919=143 

1199=1761 
1119=143 

1299=3691 
1219=1932 
1229=2183 
1239=143 

19999-4948 
1961 9=37085 
19GB29=2291 
LIBGSB=331P 
18949=3452 
19959=2483 
19199=3887 
19119=2968 
198299=3992 
19219=3764 
198229=4961 
1G23B=37B3 
19249=3967 
19259=4997 
19269=3864 
1B27B=A39IS 
1B28GH=3993 
19299=34696 
1G3GGB=947 


224289 


Dragster 64 


Drive the dragster down a narrow winding road. Do not crash into the 
armco railing and beware of spin outs off the oil slicks. Steer with the 


keyboard or a joystick in Port 2. Try to go as far as you can before 
Crashing. 


VARIABLES 


V = Sprite control Register 

BG = Background Screen Register 
MS = Sound Register 

R$ &RR$ Roadway 

R = Roadway Number (1-7) 

OL = Spaces to oil spill 

P = Keyboard or Joystick Value 


C = Crashed Flag 

SP = Spaces to start of roadway 

DS = Distance 

HD = Best Distance 

ES = Time lag from green light to Go 


o7 


19 


192 
13d 
1499 
15d 
154 
155 
169 
189 
199 


298. 
207 


216 
226 


236 
248 
259 
269 
276 
289 
29D 


3BD 
38S 
387 


319 


328 
33D 
348 


35d 
355 


356 
358 
359 
369 
37D 


REM DRAGSTER 


Build variables, switch repeating key on, print traffic light. 


POKE659, 128: V=53248: BG=53288: MS=54272: GOTO2999 
RS=RS(R) 

C=PEEK(V431) AND2*@: IFC=1THEN299 

IFTI< 1GGS9THEN169 
TIS="999GGG" :R=R+1! IFR>7THENR=7 

RS=RS(R): DS=DS+199G: GOTOZ19 

IFINT (RND (TI) ¥19@) <49THENRS=RRS 

SP=ABS (SP+ (INT (RND (TI) ¥3)-1)) 

SP=SP- (1% (SP< (46-LEN(RS))) +1) 


Print car track and player, move the car and scroll screen. 


SP=SP*¥((SP<9) +1) 

PRINT" E3 23 (23 [ey [83 (5) fe) (83 (83 (83 fe) 09) 0) fe fe) te oe 
Ce] (83 £2) G8) fel ce) fe)" 

PRINT: PRINTSPC (SP) RS 

IFRND(.)<. 2THENOL=INT (RND(.)¥#(LEN(RS))) SPRINT" CJ "SPC (SP+0O 
Lo" @" 

P=PEEK (263) : IFP=39THEN289 

IFP=36THEN279 

P=PEEK (56329) AND12: IFP=S8THEN289 

IFP< >4THEN299 

POKEV, PEEK (V) +3: POKEV, PEEK (V) +4: GOTO139 

POKEV, PEEK (V) -3: POKEV, PEEK (V) -4: GOTO1L39 

C=PEEK (V+31) AND2*@: IFC=@THEN1L5S9 


Generate an explosion, print distance travelled, print best 


distance. 


REM CRASHED ROUTINE 

POKEMS+4, 9: POKEMS+6, 9 

POKEMS+4, 9: POKEMS+1, 72: POKEMS, 179: POKEMS+5, 149: POKEMS+4, 12 
9 

PRINT" eg": PRINT" EF LA CRASHED @ . wan wo mo mo & 


L ] 
a fie, ah a z= =z cS ap a, a a a _ a ae ae a 


FORI=G@TOLSSSTEP2: POKE29499, I: POKE2949, 192: NEXT: POKEMS+4,9 
XS=TI: DS=(XS-ES+ (R+1) #1909) /189 
PRINT? £3] £2 DISTANCE: "DS"KILOMETRES 2. «2 m2 a2 mo mo» om» 


to] 
=z a cS a. za =z a 


IFDS >HDTHENHD=DS 
PRINT" (3 BEST . DISTANCE: "HD"KILOMETRES . mw. m2 = =m m= 


Ly 
ap a pe _ rs a za ly, 


PRINT” [3] PRESS . KEY . OR « FIRE « BUTTON . TO .» RESTART" 
POKE198,9¢ 

IF (PEEK (56328) AND16) =@THEN379 

GETAS!: IFAS=" "THENS5S9 

PRINT" Bs ” 


58 


BRICK BUSTER 
see page 93 


ALLIGATOR 
see page 99 


Hit 


Maat G8 a MEME EEE 7 DARD they OS 


LETTER BOX 
see page 125 


CRASH BARRIER 
see page 131 


mi 


hy 


i 


419 


39D 
992 
39S 
318 
Si5 
328 
325 
338 
335 
349 
3942 
544 
346 
358 
554 
368 
364 
37D 
374 
589 
984 
59D 
S94 
699 


639 
635 
6499 
645 


‘659 
6355 
669 
665 
679 
689 
699 
798 
719 
726 
73GB 
7498 
739 


768 
776 
772 
774 
773 
776 


POKE2949, 192 


Print the title screen, instructions and move car up and 


down. 


REM TITLE SCREEN 


PRINT" 


hse "3: POKEBG, 1:POKEBGt1, i 


POKEV+39, 6 

POKEV, 9: POKEV+1,9 
POKEV+16, PEEK (V+16) AND (255- (2°@) ) 
POKE294@, 192 
POKEV+21, PEEK (V+21)0R(2°9) 
POKEV+27,9 

POKEV, 168 


PRINT" 


YOU . ARE . THE" 


PRINT" YOU . ARE . THE" 

PRINT’ BY DRIVER . OF . A’ 

PRINT" B39 NEW . DRAGSTER.” 

PRINT” 2 YOU . MUST . DRIVE" 

PRINT’ (2 TO . THE . LIMIT." 

PRINT" fy B39 YOU . CAN . STEER" 

PRINT’ BJ WITH 2M ow & aN « KEYS" 

PRINT’ 2 OR . USE . THE" 

PRINT” JOYSTICK-PORT . 2" 

PRINT" fe) fy °SPC(24)"DO . NOT . HIT « THE” 

PRINT" i i fa "SPC (24) "ARMCO . SIDING" 

PRINT" BI ce G3 ey *SPC(24)°& . WATCH . OUT . FOR" 
PRINT® is 3 fy "SPC(24) "OIL . SLICKS."* 
PRINT HOD MmROWO Room MW eae eoeewe w 
Ge HOLD .. SPACEBAR . OR": PRINT"FIRE . TO . STAR 
T eS "3 

FORI=1T024 

PRINTSPC(16)5" Ef ig § F&F @oeoaoldd ig tm’ 
NEXT 

PRINT" B38 "SPC(19)"D ES I GERD BAW WW OBC & EE 
S SRT DY GPE RR WER ww 66m 68 4" 


GOSUB2599: POKEMS+4, 129: FORI=29T025@: POKEV4+1, I: NEXT 

IF (PEEK (56328) AND16) =@THEN665 

GETAS: IFAS<>"” . "THENPOKEMS+4, 9: FORT=1 T0200: NEXT: GOTO659 
POKEMS+24,5 

FORI=VTOV+16!: POKEI, 8: NEXT 

POKEV+27, 253 

FORI=1T039 

PRINTSPC(16);"F8 ig | F&F @ oo. oa Wd ist @ 


NEXT 


POKEV, 168: POKEV+t1, 76 
GOSUB2499 
TIS="99G6987" 


PRINT” 


BH Mmmm Mh Ww Bi BI BS BE BS Bi BS 


@ *; 
TLISINT(19-VAL (TIS) ) 
IFT1< >2THEN7469 


PRINT" 


aoe. 8 ee’; 


TLI=INT (19-VAL (TIS) ) 
IFT1< >i THENPOKE198, 9: GOTO774 


PRINT" 


OB . G3 tf 88 Ea "5 
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777 
778 
738 


79S 
899 
829 


2996 
2619 
2925 
2939 
2996 
2959 
2969 
2975 
29389 


2996 
2196 
2119 
2129 
2130 
2146 
2156 
21649 


2208 
23968 
2316 


2326 
2338 


2359 
2499 


24196 
2429 
24930 
24946 
24945 
249459 
24469 
2596 
2526 


2549 


IF (PEEK (56329) AND14) =9@THEN789 

GETAS: IFAS<>" . "THEN777 

POKE198, 9: ES=TI: TIS="999999" : DS=G: R=G: GOSUB2599: POKEMS+4, 1 
29 

FORI=79T0180: POKEV+t1, I: NEXT 

SP=13°5 RS=RS (KR) | RRBS=RRS (R?) 

POKE198, 9: GOTO139 


Define road data, road in sprite for dragster, make roar 


sound. 


REM ROAD DATA 


R$S(7)=" ES ld 2a «2 @ wz oa w2« 2 «2 I nr oe 
R$(6)>" id an « @ wz 2 2 «2 oo Ll nr ae 
RS(S)=" oe id a oo MB wa eo wo wo wo ol lLhWClUlcklekel Ce" 
R$(F)="EJ ig 2 ao Mae ea owe ld non ao " 
RS(30=" BF lid 2a ao @ wa ow wo wo oe ole kl De" 
RS(2)=" Bl ig 2 «0 @ waoeneaiaaa lit aa @" 
RS(1)="—3 ig a ao M@aeneaeaaaaw Wn oe @" 
n 

RRS(7)="E5 id 2a ao @B wa oaewe ow Wn ao @" 
RRS(6)=" FS id 2 «0 @ wa ow ow wo or IW nell" 
RRS(S)=" 0 le aw ow Me mw ow ow ow ol lULhLOllll lo" 
RRS$(4)=" fF} id a2 ow MBeaoeeeewae aw WB nw ke 
RRS(3)=" BE id a2 «20 MM wa wa wo wo ol celLhLClUlell CH" 
RRS(2)=" Bi id wz wo @ wa ew wow ow ow owlcelLhLClUlll kl” 
RRS(1)=" £3 id oa mo M@ wa ew wo wo ow ow el lhl CH" 
RRS(9)="S5 ld wa ao Bw ew eo wo wo eel lel el lhl le 
= 


FORI=12288T012359: READN: POKEL,N: NEXT 

REM DRAGSTER DATA 

DATAS, B, 8,69, 9,68, 60, 255, 69, 63,195, 252,63, 255, 252, 69, 255,6 
G, 69,126,668 

DATAG, 69,9,8,69,9,9,68,9,5,69,5,9,60,9,8,69,5,5,69,5 
DATAS, 6G, 192, 3,608,192, 3, 255, 192, 3, 255, 192, 3,69, 192,353, 24,19 
2,9,9,8 

GOTO5a¢ 

PRINT’ HR DO SH HH Hee eeeeee = 
» t 7] 

FORI=1TOS:PRINTSPC(6)" §@ oo § "!NEXT 

PRINTSPC(6)" % os # " 

FORI=1TOS:PRINTSPC(7)" Lg a "SNEXT 

PRINT" £3 3 [3 PRESS . SPACEBAR" 

PRINT" {3 OR . FIRE . BUTTON” 

PRINT" (9) ON .. GREEN . LIGHT” 

RETURN 

REM EHAUST NOISE 

POKEMS+4, 6: POKEMS+24, 15: POKEMS+5, 85: POKEMS+6, 195: POKEMS, 15 
:POKEMS+#1, 1 

RETURN 


CHECKSUM 


1g=9 
199=3259 
139=597 
149=2237 
159=1958 
154=2547 
155=2197 
169=2235 
189=2325 
199=2625 
299=1544 
207=814 
219=887 
229=4559 
239=1645 
249=852 
259=1991 
269=976 
279=2529 
289=2522 
29G=2227 
399=G 
365=1374 
397=3848 
31G=2516 
32G=3283 
33G=2976 
349=2752 
35G=1296 
355-3981 
356=3265 
358=429 
359=1666 
369=1215 
37G=372 
419=574 
599=9 
592=1632 
505=625 
519=969 
515=2273 
529=574 
525-1817 
539=618 
535=454 
549=1985 
542=1985 
544=1965 
546=1275 
559=1413 
554-1295 
569=1285 


9649=1297 
379=19G1 
9749=1496 
589=1817 
5984=1828 
399=2958 
99494=1852 
696=4144 
639=719 
635=1959 
649=131 
6495=3895 
659=3984 
655=1678 
669=34692 
665=764 
679=1625 
689=738 
690=711 
7BG=1959 
719=131 
729=1169 
739=351 
74D=899 
7ID=996 
769=1389 
77B=1945 
772=1961 
77494=1389 
773=1915 
77G=933 
777-1674 
778=1941 
788=4197 
7IB=A1715 
899=2653 
829=19837 
200G=6 
2619-1453 
2829=1472 
29639=1525 
26499=1525 
29656=1521 
2969=1581 
2079=1581 
2989=1649 
29996=1553 
2196=1573 
2119=1633 
2129=1633 
2138=1629 
2149=1688 
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TOTAL= 


2159=1688 
2169=1742 
2290=2124 
2389=8 
2319=3917 
2329=2737 
2339=3561 
2350=529 
2499=1278 
2919=1943 
24929=1977 
24939=1535 
24949=1457 
24945=1367 
24959=1399 
249469=143 
2599-9 
2529=4635 
254949=143 


198289 


Astral Attack 


For this game you must guide your ship through space, avoiding planets 
(blue) and hitting asteroids (yellow to red). If a red asteroid misses your 
ship, then the game is over. 


CONTROLS 
‘Ty — left 
_ ‘P’ — right 
VARIABLES 
PC = Player's column 
VL = Current (value of) destroyed ship 
LR = Last red asteroid 


A (I,J) = Asteroid |: colour, column, row 
P (I,J) = Planet |: column, row 

HA = Number of hit asteroid 

SC = Score 


63 


19 


15 


29 


25 


3d 
35 
36 
38 
49 
45 
IO 


US 


37 


69 
61 
62 
63 
464 
65 
66 
67 
68 
70 
72 
73 
89 
Si 
82 


84 
86 
ee 
99 


95 


REM ASTRAL ATTACK 


Clear screen, set screen colours, and prompt user to start 


game. 


AL « ATTACK": POKES3286, 7 

PRINT’ 9 (9 (2 3 2 2 i (9 ff G2 w wm we mwa ne 
-~ m= mo mo « LAHIT o ANY «2 KEY 2 TO 2 START @" 
V=53248! POKE294G, 192: POKE2@41, 193: POKEV+21, 9: POKEV+28, 2: 
POKEV+37, 2: POKEV+38, 8 

POKEV+39, 3: POKEV+4@, 1: POKEV+23, 9: POKEV+29, 9: POKEV+3@, 9: 
POKEV+31,9 

FORI=12288T012359: READ@: POKEI, @: NEXT 
FORI=12352T012414: J=PEEK (1-64) ! J=J-15! IFJ<STHENI=9 

POKEI, J 

NEXT 

FORI=49152T049271: READ@: POKEI, @: NEXT 

GETX$: IFX$=""THENGS 

PRINT” Bo (83 [ey G8) C22 G2 G83 fe) fel fe) Cs) fe] Gf) Ge Ge) te bel 
key ce) ced Red eS Om SCORE & "3 S POKES3289,9:POKE5S3281 
a) 

POKES3265, PEEK (53265) AND247: POKEV, 179: POKEV+1, 169: POKEV+21 
, 1: POKEV+16,9 

PC=18: VL=@:LR=1!: GOSUB299 


Main logic loop, call add a planet, call add asteroid. 


SYS (49152) :FORI=1TO06 

IFA(I,2)< SO@THENA(I,3)=A(I,3) +1 
IFP(I,1)<>@THENP(1I,2)=P(I,2) +1 

SYS (49225) | NEXT 

IFRND(1)<.STHENG4G 

GOSUBI19G9 

FORI=1T06: IFA(I,3) >16ANDA(I,1)< >2THENA(I,3) =9: A(I,2) =9 
SYS (49225) |NEXT 

IFRND(1)<.STHEN72 


‘GOSUBL5¢9 


FORI=1T06: IFP (I, 2) >L16THENP(I,2)=@:P(I,1)=9 

SYS (49225) : NEXT 

PC=INT ( (PEEK (V) +256% (PEEK (V+16) AND1L) -23) /8) 

IF (PEEK (Vt31) AND1) =@THEN9SS 

HA=6: FORI=1T06: IFA(1,3) >=13AND(PC=A(I, 2) ORA(I,2)=PC+1ORA(I 
» 2) =PC +2) THENHA=I 

IFP (1,2) S=L3AND(PC=P(1I,1)ORP(I,1)=PC+1LORP(1I,1)=PC+2) THEN27 
g 

NEXT 

IFHAX >OTHENGOSUB2S59 

FORI=1T06: IFA(I,3) >17ANDA(1I, 1) =2THENMS="RED . ASTEROID . E 
SCAPED” : GOTO399 

SYS (49225) : NEXT: GOTO469 


169 
119 
L112 
113 
114 
115 
129 
139 
159 
169 


176 
139 
296 
219 
2269 
222 
225 
239 
235 
249 


258 
257 
269 


265 
2728 


272 
289 
282 
285 


296 
295 
299 


38D 
31d 


315 
328 


Move the asteroid down the screen, move planet too. 


FORI=1T06: IFA(1, 2) < SO THENI29 
K=INT(RND (1) #33+4) :POKE1925+K, 42 
IFRND(1)<.9THEN114 
POKESS297+K, 75 A(I,2) =Ktl1i:A(I,1)=7: RETURN 
IFA(LR, 3) <6THENI13 

LR=I: POKESS297+K, 2: A(1I,2) =K+ti:A(I,1)=2: RETURN 
NEXT 

RETURN 

FORI=1T06: IFP(1I,1)< >8THENI79 

K=INT (RND (1) #39) : POKE1LG25+K, 81:3 POKESS297+K, 46:P(I,1)=Keis 
RETURN 

NEXT 

RETURN 

SC=SC+VL 

PRINTCHRS (13) § CHRS (145) § TAB( 19) 5 SC$ 
VL=354296: W=54276: A=54277 | H=54273:L=54272 
FORI=54272T054296: POKEI, 9: NEXT 

POKEVL, 15: POKEW, 33: POKEA, 199 
FORT=1TO19: POKEH, 34: POKEL, 75: NEXT 

POKEH, 9: POKEL, 9: POKEW, 9: POKEVL,@ 

RETURN 


Destroy the asteroid, add to score, collide with planet. 


IFA(HA, 1)=7THENVL=1@: GOTO269 

VL=59 

GOSUB2GG: POKE1924+A (HA, 2) +49%A (HA, 3), 322A (HA, 2) =B2 A(HA, 3) = 
g 

RETURN 

POKEV+2, PEEK(V) : POKEV+3, PEEK (V+1) ! IFPEEK (V+16) =1 THENPOKEV+ 
16,3 

POKEV+21,2 

V=54296: W=54276! A=54277!: H=54273:L=54272 
FORI=54272T054296: POKEI, @: NEXT 
FORX=15TO@STEP-1: POKE53281 , X+39! POKEV, X! POKEW, 129: POKEA, 15 
s POKEH, 49 

POKEL, 269: NEXT: POKE53281,9 

POKEW, @:PGKEA, @:MS="COLLISION » WITH » A » PLANET!" 
FORT=1TO1999: NEXT 


You are destroyed, print score, ask if player wants another 


try. 


PRINT” By "5 :POKES3269, 9: POKES3265, PEEK (53265) ORS 
PRINTTAB(15)3" ld m& GAME . OVER @@ "SPRINT" i fe] fsJ 
Mi 2 2 Ww ew ew we we we we ewe ee le YOUR oS 
CORE « WAS « "3SC 

PRINTTAB(8)3" La f& 3 ce] fy "SMS; " oe" 

PRINT 


339 GETXS: IFXS=" " THENEND 
349 GOTO3S39 
19660 DATAG, 24,9,9,69,9,9,192,6,64,231,2, 65, 255, 139,195,255,195, 
195,255,195 
19919 DATA1L9S, 255, 195, 195, 255, 195, 199, 255, 227, 207, 255, 243, 219, 25 
5,219 
19626 DATA2493, 255, 297, 227,255, 199, 227, 255, 199, 243, 255, 267, 219, 25 
5,219 
16636 DATA2G7, 255, 243,199, 255, 227, 192,85,3,192,62,3 
196199 DATA169, 127, 133,178, 169,6,133,179, 168,9,177,178,14649,49,145 
,178,169,9,165 
1961168 DATA178&, 24, 133, 189,165,179, 165, 212, 133,181,177, 189, 1469, 49, 
145,189,165 
19129 DATA178&, 56, 233, 1,133,178, 165,179, 233,9,133,179, 165,178, 291 
255,298 
1G13G DATA2Z19, 165,179, 261, 3, 298, 294, 169, 32, 162,98, 157,8,4, 232, 224 
49, 298, 248,96 
19148 DATA165, 197,133, 178, 261,33, 208, 19,169, 9, 205,98, 208, 298,8,17 
3,16, 298,41 
19158 DATA254, 141, 16, 268, 296, 8, 268,96, 165,178, 291, 41, 268, 13, 238, 
| 9, 268,298,8,173 
19166 DATA16, 298,9,1,141,16,298,96 
CHECKSUM 
i=g 86=131 289=3947 
19=2989 $8=1187 282=1769 
15=3267 99=5768 285=4123 
29=4983 9S5=12383 29G=1279 
25=49399 18G=1959 295=3338 
SG=2193 119=2271 299=1932 
35=4613 112=1197 39B=2478 
36=351 113=2682 319=4656 
S38=131 114=1163 315=1276 
49=2198 115=3291 S2G=153 
45=1195 129=131 S3G=1214 
3G=2949 13G=143 349=528 
35=4252 159=1974 19699=39354 
S7=1762 169=4215 19919=3454 
49=1282 179=131 19626=3465 
61=2267 189=143 19B3GB=2499 
62=2297 296=824 191 99=4334 
63=719 219=17869 19119-3988 
64=1958 229=3125 19129=3627 
65=295 222=1769 191398=4329 
66=4955 225=1473 1914949=39783 
67=719 239=1881 19159=4455 
68=1955 235=1647 19169=1467 
7G=299 249G=1493 
72=3939 258=28357 
332519 257-456 TOTAL= 184339 
89=3249 269=4159 
81=1647 265=143 
82=6537 279=4197 
84=4894 272=616 


Stuntman 


Send the stuntman from the plane, attempting to land him on red square 
on trampoline. Look out for the picket fence and the telephone poles! 
Three misses puts a stuntman out of action but you get 3 men. Use 
space bar to kick man out of plane. 


VARIABLES 


NM = Nomen 
SC,R = Score, round 
WS = Wind speed 
if = Time parameter for projection equations 
F = Flying flag 
W = No.wounds 
L,W,A,H,L = Sound 
M$ = Message 
X, YI = X,Y initial values 
X,Y = Man's X,Y co-ordinates 
M = Mass of man 
XV = Initial X velocity 
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a 


POKEV+4G, 19 
POKEI,@: NEXT 
:POKEI+2,9 
a am 


ig 


Pe ee ee a” a” a a a Sa a a a Ci a Ce ae © 
a «a a2 a F Sf 


READG 
POKEI+1,9 


POKEVt39,7 


NEXT 
PRINT" 


e 

e 

a ed cy in a za z& a =z 
e 

e 


POKEI,& 
a ee ee ee ee ee ee 


~ » 
i 4 


12288TO012359 
POKES3289, 11 


NEXT 
id 


ES 


POKEI,@Q 
as 
Feed 


POKE2941,193 
:FORI 
:READS 
ES wr ££" 


o [4 
‘= & 
a) 4 
= 
dud 
@ 
3 7 4 
E S 
a E 
- > 
an 
x oe 
a 
o ec 
j= 
- o 
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a =) = 
[J _ 
oO 
= 8 
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a. & 
c. ~ 
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@ 
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Saw 
3 oa 


ed 
=| 
a=] 
=] 
3S 


POKEI,9 


POKEV+3, 179 
s READG 


Ye en ee ee ee ee ee ee ee Se 


POKE2649, 192 


POKEV+t16, 9: POKEV+t21,¢4 
oe ee ee ee a ee” ee, a a a a aa a ae ae 


Ca ee a a Sa Se ws 


"3 ;POKES3281,11 


IFNM=STHEN69S 


PRINT" ES 
=z Bn ed a a i 


a, > DD HY 


SC=199 


= 
et eS a Si a Ce 


ee ee ee ee a a a Sa Sa Se Se ae © 
a ee ee a a a a Se a Sa a 
Ce ee ee ee ee a a” P SP Sa Se Ga ~ 
ee ee ee ee a a a a a Se a © 
=" 


ee ee ee ae 


FORI=12352TO012373STEPS 
PRINT" 


NEXT 
PRINT” 
PRINT? 
ee ee ee 
PRINT” 
PRINT" 


“ 


FORI=12376T012414 


POKEV+2, 185 
FORI=49152T0499239 


REM STUNT MAN 
NM=3 


V=53248 


1 
19 
29 
3B 
3S 
4G 
3d 
69 
199 
192 
185 
114 
116 
117 
118 
129 


a «2 «2 a a2 «2 a« 
_ 
a 


~~ " 
> 4 


(uXEX 
((XOX 
(+ 4eX 


124 


126 


128 


13d 


132 


134 


136 
149 


1528 


286 
282 
283 
284 
2985 
219 


212 
215 
217 


2265 
239 
249 
259 
260 
2768 
289 
296 


3OD 
3190 


329 
325 
33GB 
335 


PRINT" ES § §@ € aw wo mo me mo we aw ew eel kl lU ZY 
> a ae ae. ae ae ae ee ee a a a | as ES @* 8 
| | AT ; 

PRINT" ES fi G G ye a a” a a a aa a % t._- — 
Gp ieee eee hp Ee CE C8 ma -2 a2 E& §*om «z 
| A 

PRINT" ES ~ Pa a a a a ae % | as 
~ a ~ ~ =a a =a ao om a ES Ef ***% 
n 

PRINT” ES 8 8 o a~ ~ «a «2 a & | a 
re ee ee 

PRINT" ES § Pe a a a a a a a ae a % Ok ce 
ae as, as am de la, as lm a ae ae 
a a ee ee 

3 


PRINT: PRINT" —_ aw oe > EI "5 

POKEV+16, 1: POKEV, 89: POKEV+1, 89: POKEVt21,1:WS=5: GOSUB1999: F 
=9:T=98:NW=9 

VL=542965 W=54276: A=549277 2 H=54273:L=54272 


Launch and fly the plane, drop the man. 


SYS (49152) :SYS (49152) :SYS (49152) 

IF (PEEK (V+16) ANDI) < >LORPEEK (V) <89THEN294 

POKEV+ti, INT (RND (1) %75+59) 5: SC=SC-19: GOSUB199¢9 

IFF=1THEN239 

K=PEEK (197) : IFK< >69THEN229 

POKEV+t2, PEEK (V) |: POKEV+t3, PEEK (V+tl1) SF=1:5 T=0: MS=" GERONIMOOOOO 
Pho mela " © GOSUBISGIG 

IF (PEEK (V+16) AND!) ~GTHENPOKEV+t16, 6: GOTO217 
POKEV+16, PEEK (V+16) OR2 

POKEV+t21, PEEK (V+21)OR2: YI=SPEEK (V+1) +85 XI=PEEK (V) +256% (PEEK 
(V+16) AND1) 

IFF=STHEN299 


GOSUB3989 
IFX< 2G0RX >S36THENSSO 
IFY< 17STHEN299 
IFX>13GANDX< 229THENGOSUBS59: GOTO299 
IFX<59THEN4SS 
IFX >255ANDX< SOSTHENGOSUB45@: GOTO289 
GOSUB59@: GOTO29g 
Send man hurtling to ground taking account of wind speed. 
XV=3IM=5G 


T=T+1!POKE54278, 128: POKEVL, 15: POKEW, 129: POKEA, 15: POKEL, 209 
: POKEH, 89-2%T 

XoWSHTHT /M—XVETHXI! Y=4. SHTHT/MAYI 

XSINT(X) SYSINTCY) 

IFX>255 THENPOKEV+ 16, PEEK (V4+16) OR2! POKEV+2, X-256: GOTO349 
POKEV+16, PEEK (V+16) AND253: POKEV+2, X 


69 


349 
345 


35d 


355 
3469 
37D 


496 


41G 
449 


459 
469 
476 
486 


IOB 
919 
349 
945 


55d 


355 
369 
378 
38G 


699 
695 


POKEV+t3,Y 
RETURN 


If hit target exactly then print superb else good jump. 


IFX>179ANDX< LESTHENSC=SC+29692:MG="SUPERB!'!'! . . m2 =m a= 
a «a «2 « a a ": GOTOS6S 

SC=SC+190:MS="GOOD . JUMP! 2 wa ma ao ao ono wo wo oo" 
WS=INT (RND(1)#19) : GOSUB1L9OSBS9: GOSUB1399: F=9: T=9 

POKEW, 9: POKEA, 6: RETURN 


Increment accident count, man was electrocuted, start 
again. 


GOSUBI296: PRINT’ ke Hi «2a m2 «2 mw» mm» om a STUNT & MAN & E 
LECTROCUTED! !!"3 NM=NM-1: POKEV+t21,9 

FORTM=1TO3999: NEXT: SC=SC-199 

GOTO19¢G 


Increment accident count, man hit fence, if too many men 
dead. 


MS="HIT . THE . FENCE! !":GOSUB1399: SC=SC-59 

WS=INT (RND(1)*¥19) : GOSUB1999: GOSUB1399: F=9: T=: NW=NW+1 
POKEW, 9: POKEA, 9: IFNW>2THEN799 

RETURN 


Add to accident count, check if man out of action. 


MS="QUCH!! 2 - m« TRY om AGAIN": GOSUB13909: SC=SC-39: NW=NW+1 
WS=INT (RND (1) #19) : GOSUB1999: GOSUB1399: F=9: T=9 

POKEW, 9: POKEA, @: IFNW>2THEN799 

RETURN 


Man is dead, clear screen, sprites off, print message and 
re-start. 


GOSUB12990: PRINT” bo a «a a STUNT . MAN . DROWNED . IN 
am SWAMP . - «© ":POKEV+21,9 

PRINT? . A «» LONG « WAY . FROM . THE . TARGET!!" 
FORTM=1TO3999: NEXT 

NM=NM-1 

GOTO1L9G 


Print terminating message, score and stop game. 


POKES3289, 9: POKES3281,9 


PRINT’ be wm mo ma me me me me me ~*~ ~ = 
AME . OVER @ ": PRINT’ (9 9 (92 HW 8 WW & & we 


619 


639 


79D 


716 
726 


1999 


19G2 
1995 


1919 


1299 
1229 
1236 


13998 


1319 


1BBGOG 
19919 
19929 
1GB3OB 
19196 
19119 


19126 


19139 


PRINT’ 2 «2 -m m» =m» m&» m» m& mo» o« a YOUR » SCORE . WAS 
=m "3SC 
POKEVt21,90 SEND 


Print too many accidents and restart game. 


PRINT” Bs |) a ae a STUNT . MAN . OUT . OF 


a _ a 
am ACTION w -"SPRINT® 2 «© m- mm» m m ow» 100 «» MANY & ACC 
IDENTS® 
POKEV+21,90: NM=NM-1: FORTM=1TO3999: NEXT 
GOTO19S 


Print wind speed and score. 


PRINT" fey (ey O23 fey O83 [el G2) Gey fe) f93 O83 fe) fey Cs) G2) fs) be 
cs} Cea fs] fe "5 

FORI=1938T01943: POKEI, 32: NEXT 

PRINT" GG WIND . SPEED"; TAB(19)3;WS;SPC(19)3; "TOTAL . SCORE"; 
Sc; 

PRINT" &3 "5: RETURN 


Flash screen and generate sound effects. 


FORI=15TOSSTEP-1:POKES3281, 1+89: POKES3289, 1+89 
POKEVL, I: POKEW, 129: POKEA, 15: POKEH, 2+S5*1: POKEL, 200: NEXT 
POKEW,@: POKEA, 8: RETURN 


Print message to user. 


Data for sprites and machine routine. 


DATAG,9,15,9,9,15,9,15,15,9,31,15,9,62,15,9,124,15,63,255, 
255, 63, 255, 255 

DATA127, 255, 255, 255, 255, 254, 255, 255, 252, 127, 255, 248,98, 255, 
G,9,127,128 

DATAG, 63,192, G, 31,192, 8, 15,128,9,7,;5,5,5,5,5,9,5,6,9,8 
DATA184, 214, 124,56, 56,56, 198, 206 

DATAL73, 16, 208, 41,1, 208, 27, 56,173,9, 208, 233,4,141,5, 298, 28 
1,5,176,13,173 ; 

DATA16, 298, 9, 1,141, 16, 208, 169, 199, 191, 8, 208, 96, 56,173,9,29 
8,233,4,141,98 

DATA2@8, 291, 252, 144, 9,173, 16, 268,41, 254, 141,16, 208, 96, 238, 
G,288,238,G 

DATA2@S, 238, 9, 298, 173,9, 298, 248, 234,173, 16, 298,9,1,191,16, 
298,96 
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CHECKSUM 


1=9 
19=3414 
29=3668 
3H=3708 
35=1766 
49=1449 
I9=2197 
69=973 
1G6G=1778 
192=8646 
195=4268 
197=5169 
119=S5291 
112=5898 
114=3848 
116=2629 
117=2546 
118=358¢9 
129=3878 
122=395¢8 
123=5789 
1249=6186 
126=5458 
L128=3921 
1L39=3936 
132=2266 
1349=8933 
136=1369 
149=4888 
159=3125 
29G=1762 
262=2835 
293=394D 
2G9=773 
295=1817 
219=54992 
212=2841 
215=1485 
217=5294 
229=772 
239=295 
249=1529 
259=911 
269=2391 
279=849 
289=23982 
29SB=9B9 
39B=852 
319=4576 
529=3988 
325=1345 


33G=3953 
335=2265 
349=693 
345=1493 
359=4613 
355=2598 
36G=2883 
37G=924 
499=5251 
419=2959 
4$499=525 
9459=2827 
469-3812 
479=1686 
489=1435 
39G=4931 
319=2883 
349=1686 
945=143 
559=4358 
II9=249428 
369=1122 
S7B=722 
389=525 
699=117¢6 
665=3071 
619=217¢G 
639=811 
78G8=5657 
718=2656 
728=525 
199B9=821 
1GB2=1798 
1995=3856 
1G19G=512 
1299=3833 
122G=3134 
1239=924 
1399=13598 
1319=143 
19BBB=4273 
1991 9=3996 
16626=2828 
1LGBG3G=1713 
19199=4296 
19119=4174 
19129=4992 
19138=3455 


TOTAL= 264978 
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You are floating on an underground river and must blow up portions of 
the road above in order to drop the black trucks into the river. The red 
trucks must not fall into the river and the black trucks must not escape at 
the left side of the screen. 


By pressing the space bar, you either deposit a bomb or patch up the 
road, depending on your position. The seconds left for the fuse are at 
bottom left of screen. 


CONTROLS 
‘|’, ‘P’ : left, right 
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VARIABLES 


R,SC = Round, score 

XP = X position 

PEEK (178)  =Lasttruck moved 
C = Column 

BP = Bomb's position 
PC = Player’s column 
BS = Bomb set flag 

FS = Fuse set 

™ = Time bomb set 
FL = Fuse length 

NT = Newtruck (latest) 
MD = Minimum distance apart 


VL,W,A,HI,LW = Sounds 
C(I) = Truck colours 
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Build truck sprite, set screen colours, define variables, wait 


for player. 


1 REM CONVOY 


ms CONVOY f] iJ tf te te3 ts3 {93 fs] fe] ":POKES3S281, 11 
: POKES3286, 11 


19 V=53248! POKE294@, 192: POKE2941, 193: POKE2642, 193: POKE2943, 19 
34 POKE2944,193 

15 POKEV+39, 11: POKEV+49, 8: POKEV+41, @: POKEV+42, 9! POKEV+43,9 

22 FORI=12288T01235@! READ@: POKEI, @: NEXT 

38 FORI=12352T012414: READQ: POKEI, @: NEXT 

5g FORI=49152T04939G: READQ: POKEI, @: NEXT 

62 VL=54296: W=54276! A=54277! HI=54273: LW=54272 

72 POKEV+16,9 

99 PRINT" »« = mm —-» =o mo» =» —» mm» » wHIT » ANY «2 KEY aT 
0 . START" 

95 GETXS! IFX$=""THENSS 


199 PRINT? Bs "5 
195 FORI=1924T01263: POKEI, 169: POKEI+54272, 14: NEXT 
119 FORI=12649T01423: POKEI, 192: POKEI+54272,9: NEXT 
115 FORI=1424TO1583: POKEI, 169: POKEI+54272, 12: NEXT 
129 FORI=1584T01943: POKEI, 169: POKEI+54272, 6: NEXT 
138 GOSUB1999: POKEV, 178: POKEV+t1, 145: POKEV+21, 1 
149 NT=1:POKE178, 1: MD=25: GOSUB4S99 
159 POKEV+39,0:PRINT” Ey £83 £83 Es} (23 [22 fel (2) te ce 
ey 3 te) Ge) (22 fey Oe) £82 C83 coy £93 3 BA BE BOMB: 3 "3: POKESS6 
263,7 


Control logic, move the player and truck, fire at truck. 


299 SYS (49152) 

295 IFFS=SANDRND (1) <. 2THENFL=INT (RND(1)¥9+1) SFS=1: TIS="GIGGGH" 

297 GOSUB1199 

219 SYS (49296) : IF (PEEK (V+21) AND3@) =O@THENJ=1 : GOSUB429 

212 IFPEEK (181)< >L1 THEN215 

214 IFC (PEEK (178) ) =S@THENSS9 

215 SYS (49152) :K=PEEK (178) : XP=PEEK (V+2#K) +2% (8-K) # (PEEK (V+16) 
AND2*K) :C=INT (XP/8) 

217 IFPEEK (1394+C) =169ANDPEEK (1392+C) =169ANDPEEK (1393+C) =169 
THENGOSUBSS9 

229 K=PEEK (197) : IFK< >69THEN2499 

225 XP=PEEK (V) +256% (PEEK (V+16) ANDL) :PC=INT( (XP-11) 7/8) 

230 IFPEEK (1384+PC) < > 169ANDBS=9THENGOSUBS99: GOTO249 

235 IFPEEK (1384+PC) =169THENGOSUB359 

2499 SYS (49152) : IFFS=LANDBS=@ANDINT (T1I/69) >FLTHEN799 

2495 IFBS=LANDINT (TI/69) >FLTHENGOSUB4S9 

259 IFRND(1)<.92+SC/ L1GSBSTHENGOSUB4SS9 

269 GOTO29¢G 
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358 
352 
355 
369 
365 
389 
385 
39D 
392 
394 
396 
496 
495 
419 
412 
415 


429 


425 
439 
435 
449 


459 
466 
462 
465 
479 
475 
478 
486 
482 
485 
496 
492 
495 
39S 
528 


I08 
355 


Rebuild the road, send a new truck on its way. 


IFPC< STHENS89 

IFPC >S6THENSI2 

FORJ=1264TO1L3S84STEP4SS: FORK=PC-2TOPC+2 

IFPEEK (J+K) =169THENPOKEJ +K, 192: POKEJ+K+54272,9 

NEXT = NEXT: RETURN 

FORJ=1264TO1384STEP49: FORK=STOPC 

IFPEEK (J +K) =169THENPOKEI +K, 192: POKEK+J+59272,9 

NEXT: NEXT: RETURN | 

FORJ=1264TO1384STEP49: FORK=37TO39 

IFPEEK (J +K) =169THENPOKEJ +K, 192: POKEJ +K+54272,9 

NEXT: NEXT: RETURN 

J=9: FORI=1T0O4: IF (PEEK (V+21) AND2*I) =OTHENJ=I 

NEXT 

IF J=OTHENRETURN 

TE= (PEEK (V+21) ANDS@) 

XP=PEEK (V+2#NT) +2* (S-NT) (PEEK (V+16) AND2°NT) : TF 326-XP<MD 
ANDTE< >STHENRETURN 

NT=J: POKEV+2#NT, 79: POKEV+t16, PEEK (V+16) OR2°NT: POKEV+2ENT+1, 
8d 

IFRND(1)<.6THENC (NT) =9: GOTO435 


C (NT) =2 

POKEV+39+4NT, C (NT)  POKEV+21, PEEK (V+21) OR2°NT 

RETURN 
Explode the bomb, place a bomb under truck, eat away 
road. 

GOSUB129¢9 


FS=9: POKE1424+BP, 169: BS=9: IFBP=39THEN4SSS 
IFBP=9THEN49S 

FORJ=1264TO1S84STEP4S: FORK=BP-1TOBP+1 
POKEJ+K, 1698: POKEJ +K+54272, 12: NEXT: NEXT 
POKEVL, @: POKEA, 9: POKEW,9 

RETURN 

FORJ=1264TO1384STEP4S: FORK=37TO39 
POKEJ+K, 1698: POKEJ +K+S54272, 12: NEXT: NEXT 
GOTO475 a 
FORJ=1264TO1384STEP4S9: FORK=9TO2 
POKEJ+K, 169! POKEJ +K+54272, 12! NEXT: NEXT 
GOTO475 . 
BS=1: BP=PC: POKE1424+PC, 299 

RETURN 


Drop the truck into river, check if truck was red or black. 


FORY=89TOLSSSTEPS 
SYS (49152) | POKEV+2#K+1, Y: IF (PEEK (V+39) AND (1+2*K) ) < SOTHENSSD 
@ 
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598 
368 
365 
572 
79D 
785 
7198 
728 
899 


885 
819 


829 
830 


1969 


1919 
1199 
1119 
1115 
1128 
1296 
1219 
19999 


19612 


19929 
19936 


19649 
19959 
19196 
19118 


19129 


19299 


19212 


19226 


19232 


19249 


GOSUB119@0: NEXT 

IF (PEEK (V+39+K) AND15) =2THENSSS 

SC=SC +59: GOSUB1999: POKEV+21, PEEK (V+21) AND (255-2°K) 
GOSUB499: RETURN 
FORI=1S5STOSSTEP-1: POKE1 2288+ INT (RND(1)%62), INT (RND(1)¥128) 
POKEVL, I: POKEW, 129: POKEA, 15: POKEHI, 49: POKELW, 260: NEXT 
POKEW, @: POKEA,@ 

FORT=1T0199G: NEXT 

POKE53281,9:POKE53289,@9:PRINT" fs «2 =m» w= moomoeom- «= 
POKEV+21,9 / 

PRINT’ BOoH Po MwWBOoODae Mm hm Gm 2 -.a a 
-~ 2 a= a= a2 a2 wo a YOUR »« SCORE » WAS: « "3SC 
GETXS: IFX$=" ° THENEND 


GOTOS2g 
Update the score, generate sound and data for truck and 
boat man. 

PRINT” EJ 

3 i) os 

=i Bl BS 

RETURN 


I=FL-INT(TI/69) : IFI<STHENI=9 

IFFS=@THENPOKE1991, 32: RETURN 

POKE1991,48+1 

RETURN 

POKEVL, 15! POKEW, 129: POKEA, 15: POKEHI , 40: POKELW, 268 

RETURN 

DATAG, 24,9,8, 60,8,9,24,9, 1,24, 128,8,189,5,8,99,59,5,24,5,0, 
24,9,8,36, 

DATAG, 64, 9, 255, 255, 255, 255, 255, 254, 127, 255, 252, 127, 255, 252 
63,255, 248 

DATAGS, 255, 248, 15, 255, 224, 7, 255, 192,5,59,9,5,59,9,9,9,8 
DATAG, 255, 255,09, 255, 255, 9, 248, 127, 8, 249, 127,9,231, 15,62, 29 
7,15,126, 287,31 

DATA254, 287, 255, 254, 267, 31, 255, 207, 15, 255, 231,15, 255, 249, 1 
27, 255,248,127 

DATA127, 255, 255, 69, 255, 255, 69, 255, 255, 56, 69, 120, 24, 24,48,9 
:9,9,9,9,9,9,9,¢ 

DATA1LG5, 197, 201,33, 208, 22, 56, 173,9, 208, 233,49, 141,95, 208, 201 
;252,1944,8,173 | 

DATAL6, 208, 41, 254, 141,16, 208, 96, 201,41, 208, 251, 24,173,9, 28 
8,195,4,141,8 

DATA298, 261,4,176,8, 173, 16, 268,9,1,141,16, 298,96 

DATA169, 9, 133,181, 239, 178, 165, 178, 291,5, 298, 4, 169, 1,133,17 
8,178,189,141 

DATAL92, 133,179, 165,178, 19,178,173, 21, 268, 37, 179, 249, 227,535 
6,189,9, 288 

DATA233, 5, 157,9, 208, 201, 251,144, 11, 169, 255, 56, 229,179,495, 1 
6,208,141,16 

DATA298, 165, 179,45, 16, 208, 298, 22, 189, G, 208, 291, 3,176,15,16 
9,255,56,229 — 

DATA179, 45, 21, 208, 141, 21, 298, 169, 1,133,181, 96,0,2,9,8,16,3 
2,694,128 
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CHECKSUM 


1=9 
9=3695 
19=3933 
15=3584 
29=2193 
SHG=2GIS 
39=21986 
69=3352 
798=617 
9B=2367 
9S=1196 
19GB=435 
1G5=2738 
119=2677 
115=2739 
129=2687 
139=2384 
1499=1778 
159=3915 
2966=S21 
295=49437 
297=348 
219=2955 
212=1384 
2149=1337 
215=6283 
217=4595 
229=1821 
225=3844 
239=3285 
235=1852 
299=3398 
2495=2395 
259=2166 
269=525 
S59=861 
SS2=919 
SSS5=2811 
369=3199 
365=525 
S$89=2183 
S8S=3199 
399=S525 
$92=2181 
399=3199 
396=525 
4GBG=3386 
495=131 
419=753 


$12=1389 
415-6499 
429=4911 
425=2132 
439=554 
435=3397 
999=1435 
459=348 
469=2923 
462=859 
9465=2811 
47G=2275 
475=1224 
478=143 
489=2181 
482=2275 
4$85=532 
496=2964 
992=2275 
9495=532 
IBB=1992 
929=143 
599=1985 
555=44999 
958=545 
I469=2904 
965=3589 
37BG=359S 
7OG=3811 
7BS=2859 
71G=723 
726=1932 
899=3569 
895=616 
819=2916 
829=1214 
839=535 
196G9=3535 
1G1G=143 
1199=2347 
1119=1467 
1115=778 
1129=143 
1299=2681 
1219=143 
1BBBB=3925 
1BGBAB=3995 
19H2GB=2793 
19GB3G=4426 
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TOTAL= 


19949=4322 
199359=43544 
19199=4334 
19119=4169 
19126=2561 
1G299=4193 
1B21G=3991 
19229=4975 
1G23G=4.196 
19249=3597 


245889 


Egg Plant 


The objective of this game is to destroy the egg creature. He is 
protected by a moving fence with gaps in it and a shield. You must fire 
your missiles up at the creature through the fence and gradually eat the 
shield away. 


When there is a complete hole in the fence you can destroy the egg 
creature. Beware, he can drop bombs on you which can be avoided by 
moving the missile launcher from side to side with the | and P keys. The 
missile launcher only has a limited number of missiles, thirty, and a small 
amount of fuel with which to move itself. Each time that you eat a chunk 
out of the shield you get 2@ points. Hitting the Egg Plant gives 1@@ points. 
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VARIABLES 


T = Start of video driver 

A$ = Missile count 

L1 = Sprite collision register 

O = Keyboard scan 

X1 = Horizontal position of missile launcher 
Y1 = Vertical position of missile launcher 
E1 = Horizontal position of Egg Plant 


G1 = Vertical position of Egg Plant 
LE = Driver loop variable 
E = End flag 


F1 = Fences horizontal co-ordinate 

F2 = Fences vertical co-ordinate 

SC = Score 

SL = Grand score 

F = Fuel 

M = Number of missiles 

X3 = Horizontal position of launcher 
Z6 = Position of shield in sprite memory 


Ready. 
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g REM EGG PLANT 


Set up the sprites, egg plant, shield, missile and fence. 


1 PRINT CHRS(147)3"INTIALIZING! !!!" 
999 T=53248 

1G18 FORI=1TO039: AS=AS+CHRS (209) NEXTI 
1926 POKET+21,9:POKE294G, 13:POKET+39,8 
1979 FORI=9T062:READD: POKES32+1,D:NEXTI 
1118 POKE2@41,14:POKET+4@, 19: D=195 

1126 FORI=9T062: POKES96+1,D:NEXTI 

1149 POKE2942, 15: POKET+41, 19 

1168 FORI=9T062: POKE969+1, D:NEXTI 

1238 POKE2944, 254: POKET+43,5 

1249 FORI=@9T062: READD! POKE16256+1, D: NEXTI 
1255 POKE 2945, 253:POKET+44, 1:D=255 

1265 FORI=9T062: POKE16192+1, D!:NEXTI 

1285 POKE2946, 252: POKET+45, 1:D=255 

1299 FORI=@TO62STEPS 

1291 POKE16128+1,9:POKE16128+1+1,98:POKE16128+1+2,9:NEXTI 
1318 POKE2947, 251: POKET+46, 9: D=255 

1326 FORI=@9T062:POKE16964+1, D!INEXTI 

1335 X1=145:Y1=296:0=197:L1=53278 

1356 E1=145:61=79 

1385 FORI=9T062: READD: POKE16999+1, D: NEXT 


Print controls to use to move your missile launcher. 


1596 PRINT" £4 "5: GOSUB 26996: PRINT CHRS(147)53TAB(19)5;"EGG . PLA 
NT" 

15198 PRINT 

1520 PRINT "PRESS . THE «2 I om KEY «© TO o MOVE . LAUNCHER .. LEFT 

1538 PRINT 

1549 PRINT "PRESS . THE . P «= KEY « TO . MOVE . LAUNCHER . RIGH 
TT" 

1558 PRINT 

1569 PRINT "PRESS . SPACE . BAR . TO « FIRE . ROCKET" 

1576 PRINT: PRINT 

1599 PRINT "PUSH . ANY o« KEY « TO «» START o» GAME” 

1595 GET CS: IFCS=""THEN1LS95S 


Set score to nil, print fuel and missile supply and build 


screen. 


2961 POKET+#21,255:FOR LE=1 TO 19 

2996 FORI=9T062: POKE16964+1, 255: NEXTI 

2616 PRINT " be "3 TAB(13)5 "EGG . PLANT" 

2915 PRINT " Ey fey fe Ge) G82 Gey fey fed fey fey ey ek te) ce fe) oe) oe 
Ce) «Coy 6fe) fe) fey ce} oy"; 
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2628 PRINT TAB(30) $3 "FUEL" 

2639 PRINT AS; TAB(39)3 "MISSILES"; 
2648 SC=9:GOSUB7999!F=21:M=39:E=9 
2989 POKE53277, 223:F1=136:F2=159 
2319 POKET+2,F1:POKET+3,F2 

2320 POKET+4,F1+39:POKET+5,F2 

2339 POKET+@,E1:POKET+1,G1 

2359 POKET+8,X1:POKET+9, Y1 

2368 POKET+14, 145: POKET+15, 129 

2375 POKET+1@,F:POKET+11, 229 

2496 SC=9:REM SET THE SCORE TO ZERO 
2519 GOSUB3999:SL=SL+SC:NEXTLE: STOP 


Main logic, move the fence, check for launched or dropped 


missile. 


3980 GOSUB3299 

3626 A=PEEK(O) ;: IFA=66THENGOSUB4999: IFE=1 THENRETURN 
S930 IFA=3SSTHENGOSUB4S19¢9 

3949 IFA=41 THENGOSUB429¢9 

$9590 IFINT(RND(1)#15) =L4THENGOSUB6990: IFE=1 THENRETURN 
3199 F=F-.961:POKET+19,F:GOTO3999 

32665 IFF1I>1SSTHENF1=139: RETURN 

3226 POKET+2,F1: POKET+4,F1+39:F1=F1i+i: RETURN 


Launch a missile, check to move, launcher left or right. 


4999 IFM=STHENRETURN 

4926 M=M-1:2X3=X1:Y3=Y1 

4959 GOSUBS9E¢G 

4952 GOSUB3299: @2=PEEK(L1) 

46538 IFQ2=7GTHENGOSUB7966: POKET+12,9: POKET+13, 9: RETURN 

4965 IFQ2=198THENGOSUB799G6: GOSUBS8OD: POKET+12,9:POKET+t13,9: 
RETURN 

41962 IF@2=7 1 THENGOSUB7999: GOSUB7599: POKET+12,9: POKET+13,@:E=1: 
RETURN 

49649 IFY3<8 THEN RETURN 

94966 YS3=Y3-8:POKET+13,Y3 

49768 GOTO4952 

41990 IFF<LTHENRETURN 

4129 IFXK1<11GTHENRETURN 

9139 X1=X1-8:POKET+8,X1:F=F-.1: RETURN 

4299 IFF<1THENRETURN 

$2206 IFX1>169THENRETURN 

942390 X1=X1+8: POKET+8, X1:F=F-.1: RETURN 


Egg Plant has launched a missile, keep moving it. 


6996 POKE2946,259:REM POINT EGG MISSILE 
6962 X3=E1:Y3=G1:POKET+12,X3: POKET+13, 73 
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6936 
6949 


6645 
6946 
69528 
6969 
6965 
6998 


7BBD 
7918 


7GB2B 
73586 
7581 
73G2 
7ILG 
7549 
7095 
7629 
B8O9D 
8929 
8925 
8927 
8939 
BI35 
8958 
8199 


PGBS 
9B2G 
9G23 
9B25 
9BAD 
9119 
9126 
9130 


11919 
11629 


11939 


GOSUB3299 

A=PEEK (L1) : IFA=S6THENGOSUB799@: GOSUB7469@: POKET+12, 9: POKET+ 
13,9:E=1:RETURN 
IFY3>232THENPOKET +12, 9: POKET+13, 9: POKE2946, 252: RETURN 
Y3=Y3+8! POKET+12, X3:POKET+13, Y3 

A=PEEK (0) 

IFA=33THENGOSUB4199: GOTO4939 

IFA=41 THENGOSUB429¢: GOTO6939 

GOTO4936 


Print the scores, egg plant destroyed, missile launcher 


destroyed. 


REM PRINT THE SCORES 

PRINT " 69 "3" [3 E99 "3 "GAME . SCORE"3SC;TAB(23); "TOTAL . SC 
ORE"$SL 

RETURN 

PRINTCHRS (147) $TAB(19)3 "EGG . PLANT . DESTROYED"; 
REM EGG PLANT EXPLOSION 

FORI=1TOS986: NEXT 

SC=SC+199 

RETURN 

PRINT" B39 "5 TAB(19)5; "NOW . YOUR . DESTROYED! !!'!" 
POKE29464, 252: FORI=1T0496: NEXTI: RETURN 
Z1=(X3+24-145) 

ZS3=INT((Z1/16)) 

IFZ3 >2THENZ3=2 

IFZ3<O8THENZ3=9 

Z5=((Y3+4) -126) 

Z26= (Z5¥3) +233 SC=SC +20: GOSUB7 BGG 

IFZ6 >62THENZ6=62 

FOROL=9TO-2i1STEP-3: POKE146964+2Z6+O0L, 96: NEXTOL: RETURN 


Print fuel and missiles left, data for sprites. 


PRINT " Es £2) G8] [e3 (2) £83 [ey (83 [ey C83 £8) [C23 fe} £23 O23 ce] ce3 
Ce] fs} [83 £8) [8] [83 {82 "; 

J=INT(F) SPRINTTAB(S@)5"FUEL"$J5" © m "}!PRINTLEFTS(AS,M) 3 
‘IF3@-M=@ THEN 9925 

FORJ=1TO3@-M:PRINT" . "$}!:NEXTIJ 

PRINTTAB(3@) ; "MISSILES"; 

POKET+12,X3!: RETURN 

DATAG, 255,9,1,129,128,3,6, 192, 6,5, 96,12,9,48, 24,5, 24, 63, 25 
5,252 

DATA 48,9, 6,94,9, 2, 255, 255, 255, 128,09, 1, 255, 255, 255, 128,9,1 
,255, 255, 255 

DATA 96,9,6,63, 255, 252, 24,8, 24,15, 255, 224, 6,9, 96,3,9,192,9 
,255,9 

DATA 9,69,5,9,66,8,0,608,9,5,68,9,09,69,9,9,69,9,9,69,9 

DATA 224, 68,7, 224, 60,7, 224, 126, 7, 224, 255, 7, 224, 255, 7, 224,2 
55,7 

DATA227, 255, 199, 227, 255, 199, 227, 255, 199, 231, 255, 231, 231,25 
5,231,255, 255 


83 


DATA 255,255, 129, 255, 255, 129, 255 


12918 DATAG,32,9,9,112,9,6,248,9,1,252,9,3,254,9,3,38,9,35,38,9,3 
3598,9,3,38,9 
12926 DATAS,38,9,3,38,9,3,38,9,3,38,6,3,38,9,3,118,9,3,118,9,1,2 
92,9,9,298,90 
12939 DATA @,112,6,9,112,9,9,112,9 
29990 PRINT: PRINT: PRINT 
21966 PRINT” 2 mw me mmm om om OH OME OEE OH HEE 
te tT ao RR He R 
zy a a =z rad tt 
a ty, Be, . -_ oe 
22226 PRINT" ow momma lt COM 
RH 2 ow MH ow TH RH R 
22256 PRINT” 2. mw me me om om lm om OHO OH OH MW 2 a BW 
Rew wz a2 TH HR HR RM 
22269 PRINT: PRINT 
22276 PRINT" 2 mw om om om OH OM MRM BMW wa aw Wa a eo eo 
22596 PRINT” oom mom om OM OME OME OM OR 2 oe He lle 
22319 PRINT" ily, PS - ~ in, tt _ > ih YN > ~ te ~ ny - > 
m2 VRRMeRnv Rt ean 20 TW Hea oa oa 
239990 FORI=1TOS89G: NEXT: RETURN 
CHEXSUM 
G=9 1296=937 1599=2296 
1=1918 1291=3434 1595=1276 
999=3545 1319=1788 2081=162¢0 
1916=2163 1329=1946 2996=20824 
1926=1955 1335=2231 2918=1631 
1979=2125 1359=968 26135=877 
1116=1771 1385=2124 2929=941 
11290=1736 156G=3106 2936=1549 
1149=1277 1519=153 2949=2987 
1169=1789 15269=3321 2986=1743 
123G=13062 1S36=153 23196=1363 
1249=2224 1549=3473 2329=1662 
1255=1788 1559=153 233G=1341 
1265=1945 1549=2669 2359=1498 
1285=1799 1579=366 2366=1556 


2375=1443 
2496=444 
2519=1874 
399G=348 
3G29=2618 
3O3G=1939 
3G49=1936 
3GS5SGB=2793 
319G=2129 
3299=1511 
3229=24634 
4999=758 
4929=1661 
4959=356 
4952=1171 
4958=2776 
494G=3271 
4962=3596 


49649=835 
4966=1593 
4979=583 
4199=759 
4126=9494 
41S39=2386 
4299=7359 
4226=949 
423G=2385 
6999B=4636 
6992=2692 
6939=348 
69499=4327 
6945=3685 
6946=23598 
6959=698 
6969=1694 
6965=1691 
6999=585 
7 BBB=B 
7OB1G=3674 
7B2B=14943 
739G=2856 
7591=9 
75G2=964 
7519=829 
7954949=1493 
7 699=2473 
762G=1957 
8999=1295 
8929=113¢8 
8925=1982 
8927=19382 
8939G=12492 
8935=24509 
89359=1295 
S1GG=3363 


9G8G=877 

96929=4338 
9B23=1666 
9G25=1335 
9949=917 

9119=3419 
9129-39649 
9139=3419 
119619=2737 
11926=331G 
1196398=42686 
11949=1641 
1291 6=4938 
12926=4645 
1263G=1373 
29989=335 

219669=3491 
22998=16493 
22216=16493 
22229=3177 
2223G=2139 
222499=2139 
22259=3441 
22269=366 

22276=3689 
22289=2958 
22299=2965 
22388=3356 
22319=3218 
22329=27568 
22353G=3232 
2399B=1226 


TOTAL= 243979 
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Tank Ambush 


Lob bombs from your tank on the cliff onto the enemy tanks in the dark. 


Hit ‘space’ for a flare or key in angle of elevation and shell (muzzle 
velocity) followed by ‘space’ to send a bomb. 


VARIABLES 

FL = Flare flag 

CO = Collision flags 

M = Message 

A =Angle 

SH = Shell 

T = Parameter for equations of motion 
X| = Initial velocity in X direction 

YI = Initial velocity in Y direction 

LT = Last tank to move 


RN = round number 
SC = Score 
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19 


15 


17 
19 


21 
22 


24 
26 
28 


3D 
35 


37 
46 


rel) 
95 
36 
S7 
38 
69 
65 
67 


7B 


71 


72 
73 


74 
79 


REM TANK AMBUSH 


Build the tank, explosion and shell, set up video chip. 


PRINT" Ej "}TAB(13)3 "TANK . AMBUSH":PRINT" [ed [ed O23 G82 [el 
a a a a a a a a HIT « ANY o« KEY a9 TO ow 
START" 

V=53248! POKE2949, 192: POKE2941, 193: POKE2@42, 193: POKE2945, 19 
3: POKE2944, 193 

POKEV+39, 15! POKEV+4@, @: POKEV+41, 9: POKEV+42, 8: POKEV+43,9 
POKEV+21, 9! POKEV+16, 9: FORI=12352T012414: READG: POKEI, @: NEXT 
: RESTORE 

FORI=12288T012359: READ@: POKEI, @: NEXT 

POKE12297, 9! POKE12399, G@: POKE12299, 16: POKE12293, 48: POKE1229 
6,96: POKE12299, 192 

POKE12392, 128 

POKE2945, 194: POKEV+44,7 
FORI=12416TO12437STEPS: READ@: POKEI, @:POKEI+1,@: POKEI+2,9: 
NEXT | 

FORI=12449T012478: POKEL, 9: NEXT 

POKE5S3276, PEEK (53276) OR64! POKEV+45, 1: POKEV+37, 8: POKEV+38, 7 
: POKE2946, 195 

FORI=124891012542: READ@: POKEI, @: NEXT 

GETXS: IFX$=" "THEN4G 


Print the cliff, tank and enemy tanks, set screen colours. 


PRINT" bs ":POKES3289, 9: POKES3281,9 
FORI=552967T055375: POKEI, 11: NEXT 
FORI=1924T01343: IFRND (9) <.SSTHENPOKET, 46 

NEXT 

FORI=55296T055615: POKEI, 3: NEXT 

POKEV, 23: POKEV+1, 129: POKEV+21,1 
FORI=1864T01993;: POKEI, 45: POKEI+54272, 5: NEXT 

PRINT” Bey £83 Ge) (83 G03 (82 (9) (ey Ge fe (Ge) (83 fe) G8) G22 G22 653 
fe) £8] £2) £92 £99 2 me w we mw mw ew me ee me OM ANGLE we ow 
a a a a a am SHELL";" B39” 

MS="READY 2 «2» ma =a mo mo» mo» m&» om» «& a ': GOSUBIGIS 
POKEV+2, 249: POKEV+tS, INT (RND (1) ¥49+139) : POKEV+16, PEEK (Vt16) 
AND253 

POKEV+4, 6: POKEV+16, PEEK (V+16) OR28: POKEV+tS, PEEK (V+3) -25 
POKEV+6, 25: POKEV+7, PEEK (Vt+3) : POKEV+8, 35: POKEV+t9?, PEEK (Vt+35) + 
38 

POKEV+t21, PEEK (V+21)ORS9:°:LT=1 
FORI=14649TO18S24STEP49: FORIJ=9TO6G: POKEI+I, 169: POKEI+J3+54272, 
9 NEXT: NEXT 
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8d 
85 
87 
88 
89 
99 
92 
95 
199 
192 
195 


119 
115 
117 
129 
122 
136 
138 
149 
1492 
145 
147 


149 


159 
152 
153 


154 
155 
169 
162 
165 
168 


17 - 


175 
177 
185 


296 


Logic centre, fire bomb, fire flare, input cannon angle and 


shell number. 


IF (PEEK (V+21) AND32) =9ORFL=1 THENSS5 - 

GOSUB15¢ 

J=9: CO=PEEK (V+3@) : IF (COAND32) =@THEN9S 

IF (COAND 1) =1 THENSS 
FORI=1T0O4: IF (COAND2“1) << SOTHENJ=I1 

NEXT: IFJ=STHENSS 

GOSUB399: IF (PEEK (V+21) AND3@) =BTHEN5S99 

GOSUB299 

IF (PEEK (V+21) AND32) =32THENSS 

GETXS: IFX$=" "ORFL=1 THENSZ 

IFX$=" . "THENMS="FLARE 2. om. .-. om» ":GOSUBIG9G:FL=1:A= of / 
5: SH=9: GOSUB159: GOTOsSg 

IFXS< "OS" ORXS>"9" THENIBA 

K1=VAL (XS) : POKE1929,K1+48 

GETXS: IFX#=" " THENGOSUB296: GOTO1L17 

IFXS< "G"ORXS> "9" THENL17 

A=19*%K1+VAL (XS) 5 POKE1921, VAL (XS) +48: A=A% of /189 
GETXS: IFX$="" THENGOSUB29@6: GOTO136 

IFXS< ° SB" ORXS>"9" THENI346 

SH=VAL (X%) | POKE 1934, SH+48: POKES6294, 3 

FL=9 

GETXS: IFX$="" THENGOSUB29@: GOTO145 

IFX#$=" . "THENMS="FIRE . .- m— m am ": GOSUB1999:GOSUBI5@: 
GOTO8¢ 

GOTO14S 


Move the bomb, check if the bomb has hit enemy tank. 


T=T+4: XI=SH¥COS (A) /1.5:YI=SH¥SIN(A) /1.5 

IF (PEEK (V+21) AND32) < >@THEN155 

POKEV+19, 28: POKEV+16, PEEK (V+16) AND223: POKEV+11, 122: POKEV+2 
1, PEEK (V+21)O0R32 

GOSUB192g 

X=INT (284+T#XI) 

Y=INT (122-THYI +. GA9XTHT) 

IFX< 1GORX >32BORY< 1 GORY >21 STHENGOSUB499: RETURN 

IFX>255 THENPOKEV+1@, X-256: POKEV+16, PEEK (V+16) ORS2:! GOTO1L79 
POKEV+19, X: POKEV+16, PEEK (V+16) AND223 

POKEV+11,Y 

IFFL=9THENi85 

IFT >=39THEN259 

RETURN 


Call move the enemy and check if enemy has reached cliff. 


LT=LT+1:2 IFLT=STHENLT=1 
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219 
215 
2260 
222 
225 
227 
2309 


259 


269 


276 


38D 


395 
3G7 
318 


32D 


325 


338 


335 
348 
345 


347 
35d 
406 


419 
412 
415 
429 
425 


427 
439 


IF (PEEK (V+21) AND2“*LT) =STHENRETURN 

K=PEEK (V+2¥LT) + (2% (8-LT) )# (PEEK (Vt16) AND2“LT) 

IFK< 2560RK > 261 THEN225 

POKEV+2¥LT,K-6: POKEV+16, PEEK (V+16) AND (255-2“*LT) : GOTO239 
POKEV+2¥LT, PEEK (V+t2#LT) -6 

IFPEEK (V+2#LT) <SSAND (PEEK (V+16) AND2“LT) =STHEN6S9 

RETURN 


Launch the flare, keep it flying and illuminate the enemy 


tanks. 


POKEV+21, PEEK (V+21) AND223: FORK1=1T029: POKES3281, 1: FORT=1TO 
29: NEXT 

POKES3281,6: NEXT: M$="READY . «om. «mo ":GOSUBLOOG:FL=9:T=9: 
POKE1929, 32: POKE1921,32 

POKE1934, 32: RETURN 


Destroy enemy tank, call machine routine for sound and 


illuminate darkness. 


POKEV+12, PEEK (V+1@) : POKEV+13, PEEK (V+11)-5: POKEV+21, PEEK (V+ 
21) AND223 

POKE2646+J, 195: POKE2944, 193: POKEV+28, PEEK (V+28) OR2*J 
POKEV+28, PEEK (V+28) AND191:POKEV+39+J, 1: POKEV+45,9 
POKEV+21, PEEK (V+21) ORG4: IF (PEEK (V+16) AND32) =S2THENPOKEV+16 
» PEEK (V4+16) OR64 

GOSUB1926: POKES3281, 1: FORK=1TOS99: NEXT: POKE53281, 9: FORK=1 
TO266: NEXT 

SC=SC +56: POKEV+t21, PEEK (V+21) AND (191-2*J) : POKEV+39, PEEK (V+3 
BY AND(191-2*]J) 

MS="READY - ile, _ yd - ~ ~ ae ~~ am _ > _ > 
GOSUB19S 99 

POKE1929, 32: POKE1921, 32: POKE1934, 32 

POKEV+19, 28: POKEV+t16, PEEK (V+16) AND223: POKEV+11,122:T=9 
POKE2946+], 193: POKE2946, 195: POKEV+28, PEEK (V+28) AND (255-2°] 
) 

POKEV+28, PEEK (V+28) OR64: POKEV+39+J, 96: POKEV+45, 1 

RETURN 

POKEV+12, PEEK (V+19) : POKEV+13, PEEK (V+11) :POKEV+21, PEEK (V+21 
YAND223 

POKEV+21, PEEK (V+21) ORG64: IF (PEEK (V+16) AND32) =32THEN41LS 
POKEV+16, PEEK (V+16) AND191: GOTO42¢ 

POKEV+16, PEEK (V+16) OR64 

GOSUB192¢9 

POKEV+21,PEEK(V+21) ANDI91:M$="READY 2 «2 m= = m— m = 
a 2 m2» wo» wo» wo «2 ": GOSUBIIOS 

POKE1929, 352: POKE1921,32: POKE1934, 32 

POKEV+19, 28: POKEV+16, PEEK (V+16) AND223: POKEV+11,122:T=@: 
RETURN 
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398 
3G2 


584 
396 
519 
S12 


316 
329 


922 
53d 


935 
349 
55d 


496 


619 
629 


19696 


1919 
1929 
1922 
1925 
1939 
1949 
1959 
19696 


19919 
19929 


1LOB3S 
19949 


Move the enemy tanks forward. 


RN=RN+1: IFRN>1THENS19 

POKEV+t2, 219: POKEV+4, 226: POKEV+4, 251: POKEV+8, 5: POKEV+16, 
PEEK (V+16) AND248 

POKEV+16, PEEK (V+16) OR16 

GOTOS39 

IFRN>2THENS29 

POKEV+2, 186: POKEV+4, 196: POKEV+6, 221: POKEV+8, 231: POKEV+416, 
PEEK (V+16) AND232 

GOTOS39 

POKEV+t2, 159-4#RN: POKEV+4, 1646-RN: POKEV+6, 191-RN: POKEV+S8, 291 
-RN 

POKEV+16, PEEK (V+16) AND232 

POKEV+3, INT (RND (9) ¥49+139) | POKEV+5S, PEEK (V+3) -25: POKEV+7, 
PEEK (V+3) 

POKEV+9, PEEK (V+3) +39 

POKEV+21, PEEK (V+21)OR39:LT=1 

GOTO8S¢d 


Print game score and terminate game. 


GAME . OVER 8 ":PRINT: PRINT: POKEV+t21,¢ 
PRINT"YOUR . SCORE ~ IS om "3SC 
END 


Print score, routine to make bang and data for sprites. 


PRINT” La E39 [el fe) £23 [ey f22 fed fe) f8) O82 fe) fc) C8] fe2 ce] Le 
ey fe} fey £8) fe) £82 22 G8) [23 "3MS3TAB(25); "SCORE: . ";SC;" a 
Ee} " 

RETURN 


S=54272: FORL=9T024: POKES+L, @: NEXT 
VL=54296! W=54276! AT=54277!H=54273!:L=54272 
FORK=15TO@STEP-2: POKEVL, K: POKEW, 129: POKEAT, 15: POKEH, 49 
POKEL , 296: NEXT 

POKEW, @: POKEAT, 0: RETURN 

RETURN 

DATA &,69,9,9,69,9,9,255,6, 255, 255, 9, 255, 255, 9,9,255,9,5,2 
55,9,63,255, 252 

DATA127, 255, 254, 127, 255, 254, 192, 192, 192, 127, 255, 254, 127,25 
5,254, 63,255, 252 

DATAS1, 255, 248, 15, 255, 249, 7, 255, 224,3, 255, 192,8,5,9,9,5,G, 
G,9,8 

DATA24, 69, 69, 126, 126, 60, 69, 24 

DATA36, 27, 32,9, 64,4,8, 137, 2,8, 6,64, 174, 39, 172, 3, 92,137,35, 
199,192 
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19G5G DATA13, 127, 62, 67, 255, 192, 48, 255, 64, 32, 255, 199,45, 255,9,9,2 
55,192,185 

19G6H DATAL246, 154, 9, 28, 192,129, 167, 188, 48, 25, 65, 64, 198, 199, 14,9, 
6,8,195 

19978 DATA2G9, 68,8, 97 
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CHEXSUM 
1=9 138=1571 perigee 

19=4974 149=2369 426=3568 
15=3933 142=389 425=3589 
17=3588 145=2918 427-1758 
19=3893 147=3157 439=3875 
21=21983 149=525 S9G=1686 
22=3967 158=3685 SG2=4669 
249=636 152=1947 SH4=1539 
26=1392 153=4953 SB6=532 
28=3798 154=359 S19=873 
3G=1761 155=1261 S12=4892 
35=4268 169=2268 S16=532 
37=2181 162=3983 529=4836 
49=1195 1465=4966 322=1572 
59=1583 168=2372 939=4645 
55=1838 179=655 535=1425 
96=2549 175=862 949=2996 
S7=131 177=1939 959=489 
58=1782 185=143 696=39260 
69=1879 2GG=1921 619=1527 
635=2618 219=20829 629=129 
67=3221 215=39268 1GBBGB=2967 
79=1759 228=1532 1919=143 
71=4321 222=43G1 1926=2254 
7L2=3776 225=2857 1922=3236 
7S=4941308 227=3697 1925=3255 
74=20986 23G=143 LIGSG=4638 
79=4574 250-4183 1949=16918 
89=2318 2?69=4468 19359=143 
85=299 27G=729 1GGOB=4282 
87=2748 399=4698 19919=4553 
S8=1142 395=3498 19629=3495 
89=2564 3G7=3291 19G93G=1519 
9B=928 319=5942 19949=33563 
92=2149 329=3819 19959=3851 
95=294 325=5588 19969=3558 

1969=1774 338=1984 196G7G=797 

192=1784 335=1758 

1935=5959 346=3642 TOTAL= 398942 

116=1565 345=3331 

115=1672 347=3262 

117=2621 359-143 

126=1576 499=4338 

122=3751 419=3549 

1346=2923 412-2195 


Brick Buster 


veal heehee 


% 

Weta ahaa 
3 
Ry 


Blast your way through brick wall by moving your bat. The bat becomes 
shorter if you manage to get through. 


LEFT: ‘I’ RIGHT: ‘P’ 
VARIABLES 

DX = Xdirection (1 — positive,.255 — negative 
DY = /Y direction 


Round, score 


R,SC 


93 


19 


15 
26 
25 
3g 


35 
49 
ea 
85 


9G 
9S 


196 
195 
197 
119 


L115 
129 


121i 


122 


125 
139 
149 


145 
159 
169 
165 
179 
189 
185 


REM BRICK BUSTER 


Read in sprites set variables, read in machine language 


routine. 


POKES3281,19:POKES3289,2:PRINT’ kn GO wa ao wo momen « 
=a »- = ao ow oa a BRICK 2. BUSTER" 

V=53248 5 POKE2949, 192: POKE2941, 193: POKEVt+39,@: POKEV+499,6 
FORI=12288T012311: POKEI, 255: NEXT 
FORT=12312TO1L1235590: POKEI, 9: NEXT 
FORI=12352TO12373STEPS3: READG: POKEI, @: POKEI+1,90:POKEI+2,9: 
NEXT 

FORI=12376T012414: POKEI, @: NEXT 
FORI=49152T049396: READS: POKEI, Q@: NEXT 
FORI=54272T054295: POKEI, 9: NEXT 

PRINT” [ey fe) O23 £23 22 O2) (2) £2) [92 82 2 2 2 2 ma ma oo 
a «a «a a aH IT ow ANY «2 KEY o TO oo START” 

GETXS: IFX$=" "THENSG 

TIS="9999995" 


Print score, bricks, increment score, position bat and ball. 


PRINT” Be "3: POKES3281, 12:3 POKES3289, 6 

GOSUBI99@: PRINT” [e) G2 Ge] ce} £2) [22 Es) G83 G23 °: GOSUBI199 
C=169 

K=INT (RND(1)*3+5) : POKE1624+K, C! POKE14632+K, C! POKE1L649+K,C: 
POKE164&S+K,C 

POKESS896+K, 2; POKESS994+K, 2: POKESS912+K, 2: POKESS929+K, 2 
GOSUB11996:PRINT” fe] = ao HH HM HMM HK KK KK N 


am HM HM HM HM KM KM KM KM XK am HM HM HM HM KR KM 
mH MR KM HM HM MR MRK a." 

PRINT” Ei mw 2 2 HM HM HM MM MM MM MM KM 
> ee a ae re eee 
em HMM KM 2" 

PRINT’ Hm MM HM MM MM MM MR MM HM M 
mM HM HM HM HM KM KM MR MR KM MK MK KK KK 
am mM KM KM "5 


POKE1784+K,C: POKE1792+K,C: POKE1LS99+K, C: POKEL898+K,C 
POKES6956+K, 2: POKES6944+K, 2: POKES6972+K, 2: POKES6989+K, 2 
RN=RN+1>POKEV+2, 28: POKEV, 172: POKEV+16, 9: POKEV+1, 68: POKEV+3 
3 25: POKEV+21,3 

DX=1: DY=4: SC=SC +590 

POKEV+39,9: POKEV+31,9 

IFRN=1 THEN299 

IFRN>4THEN299 
IFRN=2THENFORI=12299TO12313STEPS: POKEI, 249: NEXT: GOTO299 
TFRN=3THENFORI=12299TO12313STEP3: POKEI,@: NEXT: GOTO299 
FORI=12289TO12312STEPS: POKEI , 249: NEXT 


296 
219 
215 
220 
225 
239 
249 
259 
269 
276 


39D 


385 
397 
398 
319 
Sil 
312 
329 
325 
338 


35d 


496 


419 
415 
426 
445 
459 


469 
465 
473 


Control cycle, move ball and bat round screen, check for 


colliscions. 


SYS (49152) SYS (49152) =SYS (49152) 

POKE178, DX: POKE179, DY: SYS (49231) 

CO=PEEK (V+39) : IF (COANDS) =STHENGOSUB499 

POKE178, DX: POKE179, DY: SYS (49231) 

CO=PEEK (V+39) : IF (COANDS) =STHENGOSUB499 

CL=PEEK (V+31) 5 IF (CLAND2) =2THENGOSUB399 
IFPEEK (V+3) < 25THENSSS 

IFPEEK (Vt+3) >262THEN4SSS 

K=PEEK (V+2) +128% (PEEK (V+16) AND2) : IFK>335ORK< 23 THENGOSUBS99 
GOSUB1999: GOTO29¢6 


Buster hits brick, disolve brick, calculate new buster flight 


path. 


R=INT ( (PEEK (Vt3) -944) /8) ©C=INT ( (PEEK (V+2) +128% (PEEK (V+16) 
AND2)-19) /8) 

PS=190249+49#R+C: IFPEEK (PS) < SS2THENS29 

IFPEEK (PS+1)=169THENPOKEPS+t1 , 32: GOTO359 

IFPEEK (PS+1) < >S2THENPOKEPS+1, 32: GOSUB1399: GOTO3S39 
IFPEEK (PS-1) =169THENPOKEPS-1, 32: GOTOSS9 

IFPEEK (PS-1) =S2THENRETURN 
POKEPS~-1, 32: GOSUB1399: GOTO339 
IFPEEK (PS) =169THENSSS 

POKEPS, 32: GOSUB1399 

DY=252: RETURN 


Buster strikes column, disolve column, increment score, 


print score. 


POKEPS, 32: SC=SC +59: GOSUB13996: GOSUB1999: RETURN 


Buster hits bat, change busters direction. 


DF=PEEK (V) +256% (PEEK (V+16) ANDI) | BX=PEEK (V+2) +128% (PEEK (Vtl1 
6) AND2) 

IF BX< =DFANDDX=1 THENDX=255: GOTO445 

IFDX=1THENG45 

IF BX >=DF + 1 6THENDX=1 

DY=4: RETURN 


PRINT’ ke @ wa mo mo wo woe we moe oe ehlUcrrOrmhmhlUCcrfhlUrOmhlUrfhlUrf hlh* 


a NEW .. ROUND" 
POKEV+t21,9 
FORT=1TO2999 : NEXT 
GOTO199 


59D 
528 


35d 
369 
365 
378 
38d 
59D 
39S 
1996 
19BS 


1919 
1199 


1195 


1128 


1139 


1399 
13085 


1319 

13590 

19999 
19199 
19119 
19129 
19130 


19296 


19219 


Buster hits sides chamber, so reset direction. 


IFK< 23 THENDX=1 2 RETURN 
DX=255: RETURN 


Buster missed bat, flash screen, and call sound routine. 


FORI=19TOINT (RND (1) %59+59) : POKES3281, I: POKES3S28¢, I 
POKEVL, 15: POKEW, 129: POKEA, 15: POKEH, I: POKEL, 298 

NEXT: POKEW, 8: POKEA, @ 

POKES3289,90:POKE5S3281,@:PRINT" ks i «a mm» a wo mma 
a «a «2 «& «& «& « «2 GAME . OVER!" PRINT 

PRINT’ WO Mw. ws ew ew we we ew eo 
=m m» « YOUR . SCORE 4. WAS . "3 INT(SC) 

GETXS: IFX$=" " THENEND 

GOTOS99 

mom ao ES SCORE . "SINT(SC) §CHRS(13);5"% "5 

SC=SC-TI/49 : TIS="999909" 

RETURN 
PRINT" 
- + 
_- = 
PRINT" 
- 


ld 


Fd dil 
it 


qbibid 
I4 
it 
lb Fd di 
df 
Fd dil 
dt 


F | 


a lis 
1 k- 

lk ba 4 
bl dt 
lb 

FI 

FI 

IF 

FI 


Pled bre lig 


WPimd kad 
>t b> Pd ide 


[b> Pd dod TE 


RETURN 


Push sound data into registers and make bloop sound. 


VL=549296: W=54276! A=54277!H=54273!L=54272 
FORX=1S5TO@STEP-4: POKEVL, X! POKEW, 129: POKEA, 15! POKEH, 12: POKE 
L,32!NEXT 

POKEW, 9: POKEA,& 

RETURN 

DATAG1, 126, 255, 255, 255, 255, 126,61 

DATA145, 197,133, 181,201, 33, 208,41,173, 16, 208,41,1, 249, 21,1 
73,8,268,2G1 

DATAG, 268, 14, 169, 252, 141, 8, 268, 173, 16, 298,41, 254, 141,16, 29 
8,946, 296,5, 298 

DATA296, 9, 208, 296,95, 298, 206, 9, 208, 96, 201,41, 298, 251, 238,39, 
298 ,238,9, 298 

DATA238, 9, 208, 238, 0, 208, 173,08, 208, 208, 234, 173, 16, 208,9,1,1 
41,16,298,96 

DATA24, 165,179,189, 3,208, 191,3, 298, 165,178, 261, 255, 24G, 28, 
238,2,298 

DATA238, 2, 268, 238, 2, 208, 238, 2, 298, 173, 2, 208, 291, 9, 208, 8,17 
3,16,298,9,2 
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19226 DATA1L41, 16, 208, 96,173, 16, 268, 41,2, 249,13, 173,2, 298, 298,8, 1 
73,16, 298,41, 253 
19230 DATAIL41, 16, 298, 206, 2, 298, 296, 2, 298, 296, 2, 208, 296, 2, 298, 96 


CHECKSUM 


1=9 339=795 
19=3823 359=249508 
15=3354 499=4935 
29=1877 419=2723 
25=1765 415=878 
3H=37B8 429=1687 
35-1766 445=3596 
49=2196 459=2849 
3G=1779 469-616 
85=2936 965=1931 
9B=1196 4$79=525 
9S5=895 399G=1275 
19GB=1726 329=783 
195-1356 5598=3168 
197=493 369=23582 
119=49943 365=926 
115=3593 37B=376S 
129=19972 5S89=2879 
121=9189 S9B=1214 
122-9189 S9S=538 
1235=3377 1999=3189 
139=3498 19695=1999 
149=S5913 1919=143 
145=1799 1199=8334 
159=1332 1195=7576 
1469=879 1129-8189 
165=869 1139=143 
178=3467 13989=3125 
18GH=3332 1395=3894 
185=2196 1319=723 
296=1762 L1359=143 
219=1758 19G6B9=1774 
215=2438 18196=4963 
229=1758 19119=4296 
225-2438 19126-4189 
2398=24936 19139=4198 
299-1497 19296=3767 
259=14962 19219=4958 
269=4183 19229=4551 
279=965 1G23G=3984 
39B=35347 
3O95=2945 TOTAL= 249833 
SB7=2763 
398-3327 
319=2764 
311=1441 
312=1767 
32G=1316 
325-998 
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Alligator! 


Move the alligator to right side of screen, ensuring that all yellow fish 
have been eaten. Beware of the black mines which explode if eaten, and 


watch the air guage in case alligator drowns (i.e. surface for air). 


Must also beat overall time limit in order to get to a new round. 


Scoring: exotic fish (red) 20 
yellow fish 150 
plants 10 
Move: UP — ‘Q' 
DOWN — ‘2’ 
RIGHT — ‘P’ 
VARIABLES 
NM = No. of ‘men’ 
AI,TM) = Air (initial), time left 


R,SC = Round, score 
AR,AX = Air used, alligator X co-ordinates 
FL = Flag for air guage 
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19 


29 


22 
25 
3G 


33 
35 
49 


45 
ven 2) 
66 
78 
9D 


95 
97 


199 
192 
195 
119 
115 
117 
12 
136 
135 
14g 
144 
145 
147 


15d 
134 
1356 
137 
169 
179 
189 


REM ALLIGATOR 


Create alligator and yellow fish sprites and set variables. 


LLIGATOR! M8 ":PRINT" (83 Ee) G83 G8) Ge) O83 Gey Gey fey fey oes el 
f93 £93 "5 

V=53248! POKE204@, 192: POKE2041, 194: POKE2@42, 194: POKE2943, 19 
4: POKE2944, 194 

POKE2945, 194: POKE2946, 194: POKE2@47, 194 
FORI=12288T012359: READG! POKEL, @: POKEI +644, @: NEXT 

POKEV+39, G: POKEV+4@, 7: POKEV+41, 7: POKEV+42, 7! POKEV+43, 7: 
POKEV+16,9 

POKEV+44, 7! POKEV+45, 7: POKEV+44, 7 
FORI=12366T012381STEPS: READ@: POKEL, Q! NEXT 
FORI=12416T012437STEPS: READG: POKEL, @: POKEI+1,9:POKEI+2,9: 
NEXT 

FORI=12449T012478: POKEI, @: NEXT 
FORI=49152T049262: READG! POKEI, @: NEXT 

NM=4 

FORI=54272T054296! POKEI, 9: NEXT 

PRINT" 2m meOmommlmlmlom soOM@ HIT og ANY & KEY 2 T 
O «= START" 

GETX$: IFX$=" "THENSS 

GOSUB1399 


Print ocean, alligator and yellow fish, set clock and colours. 


POKEV+21,@:NM=NM-1: IFNM=@THEN6SS 

PRINT" £3 "3! POKES328@, 14: POKE53281,6 
FORI=1924T01143: POKEL, 164: POKEI+54272, 14: NEXT 
FORI=1144T01823: K=RND(1)!IFK<. 92THENI39 

K=RND (1): IFK<. 4THENPOKEI , 42: POKEI+54272, 19: GOTO13@ 
IFK<. 6THENPOKEI, 81: POKEI+54272, 9: GOTO139 
POKEI, 88: POKEI+54272, 13 

NEXT 

POKEV, 19: POKEV+1, 159: POKEV+16,@: POKE178, 1 
AI=28-R: TM=G 

FORI=1T07 

K1=INT (RND (1) ¥288+4@) :K2=INT (RND (9) ¥39+209) 
IFK1 >255THENPOKEV+16, PEEK (V+16) OR2* 1: POKEV+2*1,K1-256: GOTO 
154 
POKEV+2*1,K1!POKEV+16, PEEK (V+16) AND (255-21) 
POKEV+2¥1I+1,K2 

NEXT 

R=R+1:GOSUB119@: POKE1545, 32 
POKEV+21,255:PRINT" £3 [83 LQ EZ AIR" 
POKEV+39,9 

TIS="G9G9G9G" : GOSUB1 GEG 


100 


286 

265 
219 
228 
225 
238 
235 
249 


258 
266 
279 
289 


SOB 
319 
496 
419 
426 
459 
469 


39D 
39S 


397 
31d 
312 
915 
5498 
345 
347 
548 


558 
388 
698 


Move alligator left, right, up and down. 


SYS (49233) : IFTM>129-2*RTHENGSS 
GOSUB1999: IFAR >=AITHEN799 

AX=PEEK (V) +256% (PEEK (V+16) ANDI) 

IFPEEK (V+1) <67THENGOSUB499 : GOTO230 
FL=9 

IFAX >3S27 AND (PEEK (V+21) ANDS@) < SOTHEN75S9 
IF (PEEK (V+39) AND1) =1 THENGOSUBS929 
K1=INT (AX/8) +4OXINT ( (PEEK (V+1) -42) /8) +1924: IFPEEK(K1)=32 
THEN299 

IFPEEK (K1) ~4¢2THENGOSUB459 

IFPEEK (K1) =81 THENGOSUBSS9 

IFPEEK (K1) =88THENGOSUB399 

GOTO29¢G 


Eat the plants, let the alligator breath and eat the fish. 


SC=SC+1G: POKEK1, 32: GOSUB199G 

RETURN 

IFFL=1THEN429 

TM=TMtINT (TI/69) : TIS="GOSG9S" : GOSUB1196:FL=1 
RETURN 

SC=SC+26: POKEK1, 32: GOSUB1999 


RETURN 
Eat the yellow fish, increment the score and clear yellow 
fish. 
Fi=@ 
FORJ=1T07! K2=PEEK (V+2"IJ) +(2%* (8-J) ) ¥ (PEEK (V+16) AND(2°J)) SKS 
=PEEK(V+2¥J+1) 
GOSUB1 996 


K4=PEEK (V) +256% (PEEK (V+16) AND1) 

IF (PEEK (V+21) AND (2*J) } =STHENS49 

IFK2-K4 >=18ANDK2-K4< 25ANDK3-PEEK (V+1) <STHENFi=J 
NEXT: IFF1=9THENRETURN 

IFF1=FBTHENSSS 

SC=SC+150: POKEV+21, PEEK (V+21) AND (255-2°F1) : GOSUB1996 
POKEV+39, 9: RETURN 


Alligator dead, call sound routine and print score. 


GOSUB1399 
GOTO19D 
POKEV+21,9: POKES3281,0:POKES3289,9: PRINT" bs & m»— m= «= 
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619 


626 
639 


78D 


719 
728 
73GB 
7668 


276 


786 
79D 


1929S 
1995 
1919 


1926 
11966 
1119 


13GG 
1361 
1362 
13985 
1319 
19996 


19919 
199295 
1993G 
199849 
19199 


19116 


PRINT" (93 fw. wa oa wo wo ow we ee lel le lw YOUR 
m SCORE «2 WAS « "5SC 

GETXS$: IFXS=" " THENEND 

GOT0629 


Alligator drowned, start game again, decrement alligator 


count. 


POKEV+21,9: POKES3281,9: PRINT" Bu Pa a a” a a aa 
=a m« « « ALLIGATOR . DROWNED" 

FORT=1TOS999: NEXT 

GOTO199 

IF (PEEK (V+21) ANDS9) =STHENI99 

PRINT" Ba ft om o» ONE . OR . MORE . YELLOW . FISH . REMAIN 
ING" 

POKES3281,9:PRINT" 9) 9 (9 (9.2 awa ao mreimemeumena 
mo ao a LOSE . ONE . ALLIGATOR" 

FORT=1TO3999: NEXT 

GOTO1LSS 


Update the score, time left and air guage 


AR=INT (TI/69) : POKESS3S49+AR, 14 
FORI=1958T01963: POKEI, 166: NEXT 

PRINT? £3 Ld ES SCORE . o "$SC3TAB(28);"TIME: . "3120-2¥R- 
TM-AR 

RETURN 

FORTI=S55349TO55349+AI: POKEI,@: NEXT 

RETURN 


Generate sound and data for sprites. 


FORX=15TO@STEP-1: IFNM=4THEN1392 

POKE53281, X+199 

POKES4296, X: POKES4276, 129: POKES4277, 15 

POKES4278, 128: POKES4273, X! POKE5S4272, 269: NEXT 
POKES4274, 9: POKE54277, @: RETURN 

DATAG, G,G,8,9,5,9,5,8,224,6,5,96,5,1,32,8,3, 48, 252, 239, 63, 
255, 252 

DATAS1, 255, 248, 31, 255, 249, 15, 255, 255, 7, 255, 255, 1, 255,9,3,1 
22,8,6,6,8 

DATAG, 6,9,9,3,9,9,1,128,9,9,9,8,8,0,9,9,f 

DATAG, @, 224, 249, 249, 255 

DATAG, 128,198,111,63,111, 198,128 

DATA165, 197, 261,41, 208, 39,173,164, 208,41, 1, 249, 7,173,8, 298, 
201,74,176, 24 

DATA24, 173,98, 208, 195, 6,141,9, 268, 173,08, 208, 291, 6,176,8,173 
,16,298,9,1,141 
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19129 DATA16, 208, 96, 201, 62, 268, 14, 173, 1, 208, 201, 64, 1494, 6,56, 233, 
6,141,1,298,96 

1913 DATA2@1, 12,298, 251,173,1, 268, 201, 24G, 176, 244, 24, 195, 6,141, 
1,288,96,165,178 

1914@ DATA2G1,9, 208, 12,169, 193,141, 248, 7, 169,1, 133,178, 76,9, 192, 
169,192,141, 248 

19158 DATA7, 169,98, 133,178, 76,9,192 
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CHECKSUM 
1=g8 249=4845 I3G1=911 

19=3297 259=1358 1392=2995 
29=3937 269=1353 1395=2291 
22=1952 279=1355 L319=1383 
25=2887 289=S525 18G6G=35985 
39=4384 38G=1719 1991 G8=3831 
33=2932 319=143 19G2G=2128 
35=2333 499=849 19939=1157 
49=37938 4$19=3278 196649=1695 
45=1761 928=143 19199=4247 
39=2197 459=1719 19119=4411 
69=389 969=143 191268=4362 
7B=1769 39BGB=3353 19139=455¢ 
9B=2367 595=6264 19149=4459 
95=1196 397=348 19159=1477 
97=348 919=2258 
1GG=2499 312=26943 TOTAL= 295151 
192=1726 915=4938 
195=2739 549=1996 
119=2747 9495=928 
115=3329 947=3742 
117=2551 5498=818 
128=1311 5354=348 
139=131 389=3525 
135=2387 699=42698 
149G=1173 61B=2392 
194=656 629=1214 
145=3252 639=3531 
1497=4699 7OGB=4326 
158=3381 71GB=10G32 
1549-1125 728=3525 
156=131 73SG8=1759 
157=1626 769=34967 
169=1553 77B=3374 
179=617 788=19832 
189=1221 79S8=325 
299=2118 199G=2991 
295=158¢6 1995=1748 
219=2234 1619=3794 
229=2172 1G29=143 
225=389 1199=2119 
239=2785 1119=143 
235=1852 13969=2119 


Road Patrol 


sganeasearen 
Ran 
SA 
Cars 
Ss 


anaes. 


During the year 2033 there was high UFO activity and thus all patrol cars 
were fitted with laser guns, however the laser beams were as yet unable 
to penetrate the UFO force field. 


Unfortunately, earth had not developed a force field which was 
permanent and every 2@ hits from a laser ray dissipated some of the 
force field energy which could only withstand 1@@ direct hits. 


As Commander of patrol car C64 it is your duty to patrol a desert road 
where there have been sightings of a UFO. It is your duty to fire rapidly at 
the UFO to try and break the force field even though it is believed 
impossible. 
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VARIABLES 

V = Sprite register 

SS = Sound register 

CC = Patrol Car column 

CR = Patrol Car row 

CX = Patrol Car horizontal increment 
CY = Patrol Car vertical increment 
SC = UFOcolumn 

SR = UFO row 

SX = UFO horizontal increment 

SY = UFO vertical increment 

JY = Joystick value 

GS = Game start flag (9 = NO, 1 = YES) 
HC = Number of hits on Patrol Car 
HS = Number of hits on UFO 

HH = Highest number of hits on UFO 
SE = UFO expansion value 


g REM ROAD PATROL 


Call print the back ground and set up the sprites, move 


patrol. 
1g GOTO1899 
26 REM JOYSTICK ROUTINE 
25 JY=PEEK (56329) : IFJY=255THENAS=""s RETURN 
30 IF (JYAND16) =@THENAS="  ":RETURN 
35 IF (JYAND4) =S@THENAS="Z"! RETURN 
49 IF (JYANDS) =STHENAS="M": RETURN 
45 AS=""> RETURN 


208  IFGS=1THEN226 
216 GETAS:IFAS=" ga "“THENGOSUB2G99 

229 POKEV,SC:POKEV+1,SR 

246 POKEV+2,CC!POKEV+3,CR 

256 GETAS: IFAS=""THENGOSUB29: IFAS=""THENSSG 

255 IFGS=1THENIFAS=" @§ "THENSYS65535 

269 IFAS="Z"THENCX=-14:CC=CC+CX: GOTOS5G 

265 IFAS="4" THENCX=14:CC=CC+CX: GOTO35¢ 

270 IFAS<>" 2 "THENSSS 

275 POKEV+41,2:POKEV+21, PEEK (V+21) OR4 

286  POKESS+24,15:POKESS+1,18 

285 FORI=CR-29TOSR-4STEP-16!POKEV+4,CC+12:POKEV+5, I 
299 IFPEEK(V+3@) AND1=1THENPOKEV+39, 7: FORT=1TO2G!: NEXT! GOTO3LS 
398 NEXT 

318 GOTO325 

315  IFGS=O9THENS25 


326 IFSE=STHENHS=HS+ti: PRINT" B53 fey Gey fey €2) Gey coy ce) ce) oe cel 
Ce} fe) fe) fey fe) fey fe fe 92 [ey ce) £83 m bed "SPC(36)HS 

322 TFSE=2THENHS=HS+t2: PRINT" ESy £2) [ey £8) £8} [cel £53 £83 £2) £8] [83 
Coy Ge} 08) fey fey fe} fe [83 (23 fs) C82 £8) m Ld "SPC(36)HS 


325  POKESS+1,49 

338 POKEV+21,3:POKEV+39,9 
349  IFHS>4THENGOTO2Z59¢ 
345 GoTOS9¢ 

359  IFCC<69THENCC=469 

368 IFCC>249THENCC=249 
386 GoTO2Z4¢g 


Move the spaceship around the screen, ship fires missile. 


I8G SC=SC+tSX 

516 IFSC< 26 THENSC=29: SX=-SX: SY=(INT (RND(.)¥9) +8) #(1-CINT(RND(. 
Y¥3))) 

92D IFSC >249THENSC=24G: SX=-SX:SY=CINT(RND (.)¥9) +8) %(1- (INT (RND 
(.)%3))) 

9359 SR=SR+SY: POKESS+24,SR/12 

949 IFSR>LSGTHENSR=189: SY=-SY: GOTO699 

JUD IFSR>SOTHENGSDD 

368 SR=30:SY=-SY 
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37D IFRND(.) >. 25THEN699 

375 IFSE=STHENSE=2: GOTOS99 

389 SE=3 

59D POKEV+29, SE: GOTO699 

4696 REM SAUCER FIRE 

61¢G IFSC<CC-190RSC >CC+1GTHEN229 

626 POKEV+t41,90: POKEVt21, PEEK (V+21)0R4 

6469 POKESS, 249: POKESS+1,176 

669 FORI=SR+t+24TO229STEP16: POKEV+t4, SC +149: POKEV+5, 1 
686 IFPEEK (V+39) AND2=2 THENPOKEV+49, 7: FORT=1T029; NEXT: GOTO73¢ 
78D NEXT 

726 GOTO7S8 


Move the spaceship missile make UFO sound. 


736  IFGS=9THEN75S9 

749 IFSE=3THENHC=HC+1: PRINT" ce] ce) ce} ke) fe} fey £23 G23 £22 bel 
te] fe] f2] ff) fej fey fey £23 f23 [92 £8) 2 m@ La "HC 

745 IFSE=2THENHC=HC+2: PRINT" Key fey 83 fey fe) O82 fe) fe) os) oe 
Ce fey Ge) £83 C83 fey fey ff) fel 60) 6) 2 oe Le "HC 

759  POKESS,@:POKESS+1,49 

768 POKEV+21, PEEK (V+21) AND(255-2%2) 

778 POKEV+49, INT((119-HC) /29) 

788 IFHC>99THEN2Z199 

799 GoOTO2Z99 

899 REM UFO SOUND 

819  FORI=SSTOSS+23:POKEI,9:NEXT:POKESS+24,5 

826  POKESS+5,17:POKESS+6, 219: POKESS, @: POKESS+1, 49: POKESS+2, 79: 
POKESS+3, 6 

839  POKESS+12,17:POKESS+13, 218: POKESS+7, @: POKESS+8, 49: POKESS+9 
,175:POKESS+19,15 

846 POKESS+4,65:POKESS+11,645 

859 RETURN 


Print the background, make sprites define variables. 


19696 REM GAME SCREEN 


1926 POKE5S32989,3:POKE53281,3 

19690 PRINT" Bo G22 [23 fed G23 [ey £82 [82 [83 fs) f83 o23 (8) [23 Ge] te] £s) 
Ki"; 

1989 PRINT" 2.2 «» mm» » mom» mm» a2 a2 a2 LW DQ Bw oo ~ 
mnaaeoaeoeaiawri_geikpewrw™~”" 

11966 PRINT" . m. m-— -— m- m« «2 « ld & PRP wow NS @ wo wo 
a -_, , a, Re Ld | — > _ ~— ” 

1166 PRINT" . o»«= «= ld & PW wz a2 wo mo wo woe oe oe eo elCUS 
Pe ce, i, sn Ga a y -_ Ea - m 
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1189 PRINT” . «g LS ES RW ww wo we we we rrhlrrhlhlUrhlrhlhlUrlo 
a _ Ea - PY _ Ea a , 

1296 PRINT" 2 Ld ES FP wm wo wo ewe oelreleelceeleeleelCOm 
“= =. . FH EF «= om» Fs G " 

1226 PRINT’ ig & «2 m= m= m2 a2 m& «& «@ Pa as ~ «= 
Pe a a” a a a a a a a a a ca Sa Ta a a a 
ao «2 wo w» «& wo "5 

1246 PRINT’ id mw wa wo mo mm Pe a a a. ~~ et 
a a a a a a a a a a a a a Sa a SP a ca. 
a i aa sal eke a8 

1269 PRINT’ id @ wa wo mo mo «= a a” a a a Sas 
Po a a a a a a aa. Pe a a” a a a a a 
ms 

1286 PRINT’ ld & «wa «mv m2 m2» «» «& «2 w&o wo &» He & He & « 
a a a a a a a a a a a > Se Sa Sa Sa Sa | 
~ lm le lu OER "5 

1399 PRINT" Ld ES BI BI BS BE BS BB Pr Reo DO em A eo De 
maPaeaAwm Ta Ra Cal a WS @" 

1326 PRINT" [2] £2] BE BE BE BR BE MOVE . PATROL . CAR . LEFT «a 
a WITH w Z m«» KEY" 

1338 PRINT" (2] BE BE BE BS BE MOVE . PATROL .. CAR . RIGHT . WITH 
a M » KEY" 

1349 PRINT" [8] BE BS BE BE BE FIRE .. USING .. SPACEBAR" 


1369 PRINT” [8] BS BE BS BE BEOR . USE . JOYSTICK . IN « PORT « 
A" * 

1378 PRINT" [83 FB HOLD . Fi « KEY « TO oo START «© OR « F? « KEY 

am 10 ». FINISH" 

1596 REM INITIAL LOCATIONS 

1518 POKE6S@, 128: V=53248: SS=54272: SE=3: GOSUBSBB9 

1526 POKE2949, 13: POKE2941, 14:5 POKE2942,15 

153@ POKEV+t21,3: POKEV+t39, 9: POKEV+t49, 6: POKEV+29, SE 

15590 CR=216:CC=INT(RND(.) #299) +49 

1569 SR=INT(RND(.)¥99) +49 

15890 SC=INT(RND(.) #239) +29 

16969 SX=INTCC(RND(.)%¥9)4+8)4(1- CINTCRND(.)%#3))) 5 TIFSX=OTHENI 699 

14626 SY=INT((RND(.)2#9)48)#(1-CINT(RND(.)¥35))) 

1646 GOSUBS9S: GOTO0299 

2999 REM BLANK TITLE SCREEN 

2626 GS=1:BS=" ,. 2. mwa a ao mo m» m» mo «= “": BS=BStBS: BH=BSt+BS 
: BS=BS+BS: BS=BS+BS 

2946 PRINT" Ej "BSBSBS 

2966 RETURN 


The patrol car is destroyed, prompt player for another game. 


21948 REM PATROL CAR DESTROYED 

2126 PRINT" B39 Es) fey Oey ce) fey Ey fed oe) fey fey e3 £03 O83 f23 fs is) 
ce] £2] [£8] £8] £82 be] "SPCC INT(CC/8)); 

2138 POKEV+21,9:POKESS+4,@:POKESS+11,9: POKESS+12, 75: POKESS+13, 1 
8: POKESS+24,15 

2149 FORI=1TO4:PRINT" FS BW Se “Qo "3: FORT=1TOSO: NEXT: PRINT" BB 
B58 88 LS om lCU!lCUl CD SO OO "5 | POKESS+11,129 
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2159 FORT=1TO0199:NEXT:NEXT!POKESS+11,9 
2168 IFHS>HHTHENHH=HS 
2178 PRINT:PRINT" O OO BE BS BI OB BE BD OB OB OBE OBE OL 
ES HIGHEST . HITS . ON « UFO: "HH 
2186 PRINT" (2) BE BE BE BS BS BE OBS Bo Be OB OE bd ANOTHER | 
GAME (Y/N) " 
2296 GETAS: IFAS="Y"THENHS=@! HC=9: RESTORE: GS=9: GOTO1996 
2226 IFAS<>"N"THEN2299 
2238 SYSé65535 
The UFO was destroyed and data for patrol and spaceship. 
2599 REM UFO DESTROYED 
2526 POKESS+4,@:POKESS+11,@: POKESS+5, 78: POKESS+4, 22: POKESS+24, 1 
S: POKESS+4, 129 
2549 FORI=1T015: POKEV+39, 1: FORT=1TO19@: NEXT: NEXT: POKESS+4,9 
2569 POKEV+21,2 
2576 PRINT" Bey [sl fe] £8) Coy fe) fe} f23 £8] £8) £2] £2) fey £9) cs3 £23 is] 
te] [23 £23 fe] cs)" 
2589 GOT02149 
5696 REM UFO,PATROL CAR & FIRE DATA 
S926 FORI=9T0191:READA: POKE (832+1),A:NEXT! RETURN 
S849 DATAG,&,9,9,9,9,9,9,5,9,9,9,9,34,9,9,34,9,5,255,5 
5869 DATA3,469,192,6,0, 96,31, 255, 248, 31,255, 248, 6,9, 96,3, 255,192 
,9,255,5 
5889 DATAG,&9,9,9,9,9,9,5,9,9,5,5,9,9,9,9,9,5,9,5,5,G 
S19 DATAS,9,9,95,9,5,9,9,9,9,9,5,5,9,9,9,9,9,9,59,9,5,5,G 
512G DATAG,24,6,9,24,9,17, 255,136, 11,255, 288, 6,0, 96, 31, 255, 248, 
63,255, 252 
S149 DATA13,129,176,7,8,224,2,9,64,9,0,9,9,9,9,9,9,8,8 
S149 DATAG,49,9,9,69,5,9,68,9,5,49,5,5,69,5,9,69,9,9,46,5,9, 69, 
8,9,60,8,9,69,f5 
518G DATAG,69,9,9,665,5,5,68,9,9,69,9,9,609,9,0,609,9,5,69,5,5, 60, 
G,9,69,9,9,69,9 
5295 DATAG,69,9,6 
CHEXSUM 
B=D 278=1985 389=525 
19=579 275=2293 5AS=836 
29=8 28G8=1576 519=5144 
25=2473 285=3657 529=5278 
3G=1778 29G=3895 53G=2096 
35-1761 39G=131 549=28164 
4G=1753 31G=527 559=939 
45=564 315=849 56G=1232 
299=865 32G=3369 579=1168 
219=1535 322=3371 575=1719 
229=1216 325=791 5S89=388 
249=1413 33G=1331 599=1355 
259=2286 349=1317 689=G 
255=1972 345=529 619=2237 
26G=3922 359=1191 4629=2293 
265=2826 34G9=1315 649=1378 
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669=3284 
68G=3861 
7@BG=131 
72G=53G 
73G=868 
749=2981 
745=2983 
758=1265 
749=2159 
778=1742 
789=984 
79G=525 
89G=9 
819=2668 
828=4596 
839=5169 
849=1581 
859=143 
1999=9 
1929=1175 


1G6G=994 
1989=2958 


11969=2197 
1126=2995 
1149=2869 
1169=3865 
1189=3529 
1266=3777 
1229=2483 
1249=2398 
1269=2398 
1289=2389 
1369-2791 
1329=3189 
L1339=3133 
1349=2998 
1369=2936 
1379=3596 
1569=9 
1519=2797 
152G=1732 
1539=2914 
1559=2168 
1569=1518 
1589=1558 
1699=4299 
1626=3196 
1649=912 
290G=G 
2926-4844 
2949=S589 
2969=143 
2199=9 
2129=1796 
213569=49918 


2149=5599 
2156=1978 
2169=13980 
217G=3511 
2189=2939 
229G=3386 
2226=1181 
2236=431 
259 8=6 
2529=4962 
23549=3496 
2569=616 
2576=762 
2589=582 
IGGB=H 
IO2G=2494 
399494 G=2563 
IG69=3619 
IH8G=2436 
3199=2638 
9128=3895 
91949=2593 
9169=4361 


9189=4361 
I2O9G=337 


TOTAL= 257898 
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Snakepit 


Pit two snakes against each other to make one bite the other's tail. 


You can play an opponent or the computer, using the keyboard or 
joysticks. Do not run into the wall, do not bite your own tail or turn back on 
yourself. You must try and block the other snake’s path so he runs into 
your tail. 


Seven bites of the tail determines the winner of each game. 


Do not hold keys down or the joystick in a fixed position; the snake will 
run in one direction until a new direction given. 
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VARIABLES 


CO = Colour offset address and sound register 
JL = Left joystick (Port B) Value 

JR = Right joystick (Port A) Value 

X| = Left snake X direction increment 

Y! = Left snake Y direction increment 

X2 = Right snake X direction increment 

Y2 = Right snake Y direction increment 


P| = Screen location of left snake 
P2 = Screen location of right snake 
N = Number of players 

F = Speed variable 

S| = Left snake score 


S2 = Right snake score 
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NO dc) Ne» 


196 
128 
134 
135 
149 
156 
169 
186 
199 
200 
228 
239 
249 
259 
269 
278 


REM SNAKEPIT 
CO=54272: GOTO2999 
REM GET DIRECTION 
IFN=1THENS 

IFIL< >S@THENIS 


Scan the joystick port, if pressed then move snake. 


JL=PEEK (56321) 

JL=15-(JLAND1S) 

IFIL=9THENLS 

IFJL=1THENX1=6: Y1=-1:GOTO199 
IFIL=2THENX1=9: Y1=1: GOTO1LSS 
IFIL=8THENX1=1: Y1=96: GOTO199 
IFJL=4THENX1=-1: Y1=9: GOTO199 
JL=@: JTR=PEEK (56329) 

JR=15- (JRANDL5) 

IF JR=STHENSS 

IF JR=1THENX2=90: Y2=-1: GOTO199 
IF JR=2THENX2=@: Y2=1: GOTO199 
IFJR=8THENX2=1: Y2=9: GOTOLS9 
IFJR=4THENX2=-1: Y2=6: GOTO19¢ 
GETAS: IFAS=" "THEN19G 

IFAS="I" THENX2=9: Y2=-1: GOTO199 
IFAS="W" THENX1=9: Yi=-1: GOTO199 
IFAS="M" THENX2=9: Y2=1: GOTO199 
IFAS="Z" THENX1=9: Y1=1:GOTOLSd 
IFAS="K" THENX2=1: Y2=9: GOTO199 
IFAS="S" THENX1=1:Y1=@0: GOTO199 
IFAS="J" THENX2=-1:5 Y2=98: GOTO199 
IFAS="A" THENX1=-1: Yi=G: GOTO199 


Plot the players snake and the other players snake. 


REM PLOT PLAYER POSITION 
P1=P1+X1+ (Y1¥4@) !:P=P1!:S=1! GOSUB29¢ 
IFS=GTHEN2389 

IFN= 1 THENGOSUB699 
P2=P2+X2+ (Y2¥4G) :P=P2: S=2!: GOSUB299 
IFS=STHEN2389 

POKEP1,981:POKEP1+CO,2 
POKEP2, 87: POKEP2+CO,5 
FORT=1TOFXF +F¥29: NEXT: GOTOS 

REM CHECK FOR HIT 
IFPEEK (P) =S2THENRETURN 
FORI=4TOSSTEP-1!POKE53289, I: GOSUB599 
POKEP, 81: POKEP+54272, S¥3-1: FORT=1TO69!: NEXT 
POKEP, 81: POKEP+54272, 3: NEXT 
IFS=1THENS2=S2+1:S=9 
IFS=2THENS1=S1+41:S=6 
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289 FORT=1 T0299: NEXT 

29D IFS1<7ANDS2< 7THENRE TURN 

399 REM WINNERS ROUTINE 

328 GOSUB1 999: PRINT" ig BE &EPLAYER . 1: ~. .o-. BI Bi BE BI 
i BS BE BS BS OS BB BE BS GS PLAYER Ww 2: 2 oo" 

349 PRINT" 3 © La "SPC (196)S1SPC(24)" Fa "Ss2 

35d IFS1<S2THENN=2: PRINT" 3 LS Ea” 

349 IFS2<S1iITHENN=1:PRINT" £3 Lg fg" 

396 PRINT" £83 G8] [oy f2) G2] BA BS Bl Be Be BS OB OB OB OB OBE Law 
INNER....-PLAYER w "3 

496 PRINTN 

426 PRINT" £33 [ey Ge) (22 [22 BE BS BE BS BD OBS BE OBS OBS BE OBS ANOT 
HER . GAME? . (Y/N)" 

43GB GET AS: IFAS="Y"° THENRUN 

449 IFAS< >" N" THENSS9 

459d SYS65535 

466 END 


Generate sound, the computer makes its move, set screen 


colours. 


399 REM SOUND 

519  POKECO+6, 249: POKECO+G, 17 

329 POKECO+1,34: POKECO,75 

3398 FORT=1TO198: NEXT 

949 POKECO+1,@:POGKECO,9 

3959 POKECO+4, 33: POKECO+1,6: POKECO, 2064 

369 FORT=1TO299: NEXT 

3768 POKECO+1,9: POKECO,9 

39D RETURN 

656 REM COMPUTERS MOVE 

420 IFPEEK (P2+X2+Y2%49) =S2ANDRND(.)<. 85 THENRETURN 

659 XN=X2: YN=¥2: Y2=G 

655 XZ=1- CINT CRND(.)%3)) 5s IFX2=STHEN655 

669 X=PEEK (P2+X2+Y2¥49) : IFX=3S2THENIFX2=1 THENAS="K" : RETURN 
639 IFX=32THENIFX2=- 1 THENAS="J" : RETURN 

7OB X2=08 

719 Y2=1: X=PEEK (P2+X2+Y2X49) : IFX=S2THENAS="M" : RETURN 
726 Y2=-15 X=PEEK (P2+X2+Y2%¥49Q) : IFX=S2THENAS="I" 2 RETURN 
746 X2=XN: Y2=YN 

768 RETURN 

1666 POKES3289,6:POKES53281 30 

1916 PRINT" & LS mw om ee ee ee ee ee a a” a Sa ae % 


Cr] 
= 2 


1926 FORI=1TO022:PRINT" §B LS =. o»« ":NEXT 
_ ay 


_ a a By 
ad Cd Feel a _ a ce a za cS =z _ Deed rs _ _ ee 
" 
_ _ az _ a _ | > | 


1946 POKE2623, 169: POKES6295,9 
1956 RETURN 
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29089 
2989 


2199 
2129 
2149 
2169 
2290 


2249 
22598 
2269 
22768 


2289 
2296 
2399 
2320 - 
2325 
23368 


2334 
2336 
23499 
2360 
2389 


2399S 
24995 
24926 
24939 
24949 
24665 
2489 
2509 


2549 
2499 
2629 
2630 
26499 
2659 
2669 
69996 
69919 


69925 


Print instructions, input number of players and game 


speed. 


GOSUB1999 


PRINT" BE BE BE BS BEPLAYER . 1’S . KEYS . om ao PLAYER o« 
2°S « KEYS" 


PRINT" BE BE UP"SPC(9) "W"SPC(17) "I" 

PRINT" BS BS LEFT"SPC(7) "A"SPC(17) "I" 

PRINT” BE BE RIGHT"SPC (6) "S"SPC(17) °K" 

PRINT" BE BE DOWN"SPC(7)"Z"SPC (17) "Mm" 

PRINT" BS BE BA JOYSTICK(PORT . B) o© om. om» JOYSTICK(PORT . 
A)” 

PRINT" @3 BS BES ENTER . NUMBER . 1 » OR « 2 « FOR” 

PRINT" BS BS Bi BE BE BE BA BS BA NUMBER . OF . PLAYERS." 
PRINT? BE BS BATHE .. COMPUTER . WILL . BE . PLAYER . 2" 
PRINT” BS BS Bi BE BE BS BE BE BE WHEN . ONLY . 1 . PLAYER 


m= AVAILABLE. * 

PRINT" BS @S BE NUMBER . OF . PLAYERS: . "3 

PRINT? a . M@ "3: FORT=1TO8G: NEXT 

GETAS: IFAS=" 1 "ORAS="2" THENZ325 

PRINT" #8 . M8 "3: FORT=1TO8@: NEXT: GOTO2299 

N=VAL (AS) 

PRINT" 63 [82 [2] G23 [2] [3 [ey {82 [e] fe] ce} fe} fey ce} £82 ce) £e) 
te} fe} [82 £2) £8) [e} MS BS ENTER . SPEED » (1:FAST o - o 9:SLO 
W) m °3:GOTO2349 

PRINT" L3o . M@@ "3: FORT=1TO8@: NEXT 

PRINT’ 8 .. 8 "3: FORT=1TO8@: NEXT 

GETAS: IFAS< "1 "ORAS> "9" THEN2334 

F=VAL (AS) : GOSUB469999 

GOSUB1999:PRINT" BY LY BB EE PLAYER . 1: 2. .- BS BE BE BS 
Bi Bi BE BS BS OB OB OB) OB BS BS BE OFS PLAYER Ww 2: . oo " 
PRINT" E4 ia "SPC (19) S1SPC(24)" Eg "S2 

REM SET RANDOM WALLS 

NW=INT(RND(.)¥4) PRINT” §3 "3 

IFNW=S8THEN2699 

FORI=1TONW 

FORJ=1TORND ((.)%6) +3 

PRINT: NEXT 

PRINTSPC ( (RND(.)¥8) +8) SFORK=LTORND(.)¥16+8:PRINT" m@ Ld o 
"s SNEXT 

NEXT 

REM SET INITIAL POSITIONS 
P1=1196!:P2=1141!X1=@!X2=@: Y1=1: Y2=1:S=9! POKE198,9 
IFN=2THEN2649 

FORI=COTOCO+24: POKEI, @: NEXT 

POKECO+24, 15: POKECO+4,@ 

GoTO29 

FORI=828T0853: READA: POKEI, A: NEXT: SYS828: RETURN 

DATA12G, 169, 73,141, 26,3, 169, 3,141, 21,3, 88, 96, 169, 1,141,139 
»2,169,8 

DATA141, 149, 2, 76,49, 234 
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CHECKSUM 


1=9 
2=1283 
3=9 
6=678 
7=991 
8=995 
1M=1151 
12=895 
14=2339 
15=2174 
16=2181 
17=2341 
18=1413 
19=1169 
29=889 
21=2346 
22=2181 
23=2188 
249=2345 
SH=1212 
95=2419 
69=2428 
65=2226 
7B=2236 
73=2221 
89=2239 
85=2393 
9B=2386 
19B=G 
129=2745 
139=842 
135=927 
1499=2752 
159=842 
169=1252 
189=1251 
199=2261 
299=B 
226=1117 
23G=21961 
249=2866 
259=1481 
269=1727 
2798=1729 
289=974 
299=1398 
39G=B 
S29=3312 
3949=1492 
359=1493 
369=1493 
S9D=2298 


499=231 
429=2193 
439=1263 
449=1124 
459=431 
469=129 
599=9 
519=1529 
529=1228 
539=975 
549=1191 
559=2915 
569=974 
579=1191 
599=143 
699=9 
629=3973 
659=1521 
655=2441 
669=3915 
689=2285 
78B=376 
71B=3666 
728=3858 
749=1961 
769=143 
199G=1172 
1919=2724 
1928=1495 
193G=2316 
1949=1211 
1959=143 
2899=348 
298G=3993 
2199=1469 
2129=1694 
2149=1719 
2169=1619 
220G=3196 
2249=2975 
2259=2994 
2269=2652 
2279=3923 
2289=1854 
2299=1534 
239G=1967 
2329=2365 
2325=654 
2339=4427 
2334=1534 
2336=1689 
2349=1975 
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TOTAL= 


2369=1149 
2389=3312 
2399=1492 
2499=95 
2929=1576 
2939=938 
2949=766 
2469=1487 
249489=342 
2599=3752 
2599=131 
2689=9 
2629=3937 
2639=843 
26499=1741 
2659=1466 
2669=4972 


6999G=24461 
69919=3632 
69929=1157 


299236 


Detonator 


Position the space ship within firing range of the hollowed sections of the 
three mountains and detonate the small bombs in these sections. The 
idea is to drop the bomb sitting on top of each mountain as far as 
possible into the mountain in order to blow it up. 


However, if you touch any of the mountains, you blow up and the game is 
over. Engine malfunctions become more common as game proceeds. 


CONTROLS 

QZ > up, down 
seal ce : left, right 
space bar : fire 
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VARIABLES 
VL,W,A,HI,LW = sound effects 


DB(I,J) = “doomsday bomb” I's position (J) 
PEEK(1 78) = direction of ship 

LV = level of bomb 

BD = bomb to drop 

SC,R = score, round 

RW,C = row, column 


SP = starting position for blankout 
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1 
19 
15 
26 
3d 
3S 
ba 
69 
7B 
9D 
95 
199 
191 
192 
1964 
196 
198 
119 
112 
114 
116 
118 
126 
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x Dd = Pd cad Be = iB. Py Ld i. = _ _ By + w "5 
a _ _ i K ie, _ _ a a, = "5 
iy, ie, La _ PS iin is, iy, a = "5 

132 PRINT’ LA SS @ owe lS WP ow. Mew ew ow oo tw lo 
3 
a. ad ie, a ae za _ i a hy a Be, Ai. cS Pd a> z> lt, 
By nn a, a i, = "5 


Move the spaceship round the mountain and keep direction. 


146 GOSUB1999: POKEV, 25: POKEV+t1,55: POKEVt21,1:°POKEV+16,9 
1598 DB(1,1)=1233°DB(2,1)=1248°DB(3,1)=1263 

169 POKEV+31,92 

296 SYS (49152) | IFPEEK (179) =1 THENGOSUB399 

295 LM=S3#R°: IFRND (1) ¥196<LMTHENI=INT (RND(1)#3+1) ©POKE17&8,1 
216 IFPEEK (1273) =32ANDPEEK (1233) < >S2THENBD=1 : GOTOS96 

215 IFPEEK (1288) =S2ANDPEEK (1248) < >S2THENBD=2: GOTOS99 

229 IFPEEK (1393) =S2ANDPEEK (12643) < >S2THENBD=3: GOTOS99 

236 IF (PEEK (V+31) AND1 ) =O9THEN299 

249 GOTO799 


+ 


Fire laser at interior of mountain check if a detonation. 


3GDB XP=PEEK (V) +256% (PEEK (V+16) AND1) +16 

319 IF XP >255THENPOKEV+164, PEEK (V+16) OR2: POKEV+t+2, XP-256: GOTO329 

315 POKEV+16, PEEK (V+16) AND253: POKEV+t2, xP 

326 POKEV+tsS, PEEK (V+1) +5: POKEV+21,3 

33d REM NOISE 

349 RW=INT ( (PEEK (V+3) -54) /8) }C=INT(XP/8) | T=1924+4G*#RW+C:3 KL= 
PEEK (TI) 

345 IFPEEK (I) =S2ANDPEEK (I-1) =169THENGOSUB496: GOTO35¢9 

347 IFPEEK (1) =4SANDPEEK (1-1) =169THENGOSUB499 

359 POKEV+21,1: RETURN 

49D IFC< LS THENC=9: GOTO429 

495 IFC< 25 THENC=24: GOTO429 

416 C=39 
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425 
43 
449 


5BD 
5393S 


319 


6995 
682 
4693 
495 
619 
629 
639 
649 
659 
669 
679 
689 
782 
7BS 


719 
726 


895 
81d 


829 
83d 


849 
19GB 


19198 
1985 


19919 


POKEVL, 15: POKELW, 226: POKEHI , 68: POKEW, 129: POKEA, 15 
POKE964+49#RW4+C , 32: POKE1924+49#RW+C, 32: POKE19649+492RWtC, 32 
FORTM=1T019: NEXT: POKEA, 9: POKEW, 9: RETURN 


Drop the bomb, from top of mountain down the tube, blast 


mountain. 


LV=9 

POKEDB (BD, 1),32:DB(BD,1)=DB(BD, 1) +49: IFPEEK (DB(BD,1))<>32 
THEN699 
POKEDB(BD,1),81:5POKEDB(BD, 1) +54272, 2:LV=LV+1:SC=SC+tLV: 
GOSUB1999: GOTOS9S 


Ship is destroyed, call explosion. 


POKEVL, 15: POKEW, 129: POKEA, 15: POKELW, 269: IFBD=3THEN659 
IFBD=1THENSP=1264: GOTO6S5 

SP=1279 

FORI=SP+4G¥LVTOSPSTEP-49: FORJ=4T014 

POKEI+J, 32: POKES3281, J: POKEHI, INT (RND (1) *20+2) NEXT! NEXT 
POKES3281, 12: POKEVL,@ 

IFPEEK (1233) =32ANDPEEK (1248) =32ANDPEEK (1263) =32THENI99 
GoTO2sg 

FORI=1298+4G*¥LVTO1298STEP-49: FORI=9T06 

POKEI+J, 32: POKE53281, J: POKEHI, INT (RND(1)%*26+2) : NEXT! NEXT 
POKES3281,12:POKEVL,@ 

GOTO63¢g 

FORI=LWTOLW+24: POKEI, @! NEXT 
FORI=15TO@STEP-1:POKE12288+INT (RND(1)*69) , 9: POKE12288+INT ( 
RND(1)*468),1 

POKEVL, I: POKEW, 129: POKEA, 15: POKEHI, 49: POKELW, 299: NEXT 
POKEV+21,9 


Game score is updated, data for spaceship and machine 


code routine. 


PRINT" ka "3! POKE53281, 9: POKE53289,9 

a OVER DB wWBOMama OR eat ww ww Bi” 

PRINT" 2 «2 =m =» =» =m m= mm» m» m a YOUR « SCORE « WAS 
= "3SC 

GETXS$: IFX$=" " THENEND 

GOTOS39 

PRINT’ DDMMemeBeaeMeBeBoeomea ww i BI 
2 Oe 2 ee oe co Bd 2 2 2 + a aa aa a ss 
-= = m « SCORE: -« "3SC3 
RETURN 

DATAG, 28,9,9,62,9,8,127,8,G,201,9,G,261,8,9,255,98,31,255,2 
48, 63,255, 252 

DATAL27, 255, 254, 255, 255, 255, 127, 255, 254,63, 255, 252, 31,255, 
248,7,255, 224 


123 


19629 
1G19G 


19119 


19126 


19136 


19149 


DATA7, 255, 224, 1, 255, 128, 9, 255,9,9,9,9,9,9,9,5,5,5,9,5,8 
DATA1I65, 197, 133, 189, 169, 0,133,179, 165, 180, 291, 69, 208, 4, 149 
,1,133,179,165 

DATAIL8S@, 261, 62, 208, 4, 169, 1,133, 178, 165, 188, 201, 12, 298,4,146 
9,2,133,178,165 

DATAISG, 201,33, 208, 4,169, 3,133,178, 165, 18H, 201,41, 298,4,16 
9,4,133,178,165 

DATA1L78, 261,1, 208,189,173, 1, 208, 206, 1, 208, 206, 1, 208,96, 21, 
2,208,19,173,1 

DATA298, 238, 1, 208, 238, 1, 208, 96, 201, 3, 208, 22, 296, 8, 268, 206, 
G,298,173,9,298 
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19158 DATA2@1, 254, 144,8,173, 146, 298, 41, 254, 141, 16, 298, 96, 238,95, 29 
8,238,9,298,173 
19168 DATAS, 208, 2961,2,176,8,173,16,208,9,1,1941,16, 208,96 
CHECKSUM 
1=9 215=3394 71G=2859 
19=43515 228=33749 72ZB=616 
15=4111 239=1699 899=1652 
29=2823 24949=329 816=2352 
38=1872 3GB=269S 829=2176 
35=1768 319=4145 83G=1214 
58=2186 315=2354 849=536 
69=3352 329=2965 1969=23595 
7B=1778 33G=G 1919=143 
99=2481 349=5427 19999=4129 
95=1196 3495=3967 19G1G9=4211 
199=4897 347=2413 1GB2GB=2926 
191=539 359=817 1G1G9G=437G 
192=3481 49G=1591 19118=4444 
164=3979 4935=1649 19129=4446 
196=2758 919=357 169139=4295 
198=3526 429=2681 19149=4394 
119=3922 9439=4542 19159=4392 
112=2742 449=2939 19146=2698 
114=3523 SGG=394 
116=3922 395=4463 TOTAL= 245726 
118=2749 319=5381 
126=3529 699=3979 
122=3874 692=1899 
1249=2749 693=5728 
126=3521 6935=2859 
128=3874 619=3499 
138=2742 6269=1987 
132=5992 639=333G 
134=2342 649=3525 
149=2964 659=2942 
159=2629 669=3499 
169=617 679=1987 
280G=1944 689=3532 
2895=4957 79B=1778 
219=3369 785=4628 


Letterbox 


Catch the falling letters and post them in the letter box on the left. If you 
do not catch them they will go into the dead letter box on the right. If you 
fill the good letter box before the dead letter box then you will proceed to 
the next of the five floors. However, should the dead letter box be filled 


first then you will go back to the previous floor. The letters fall faster for 
each higher floor. 


The mailman can be moved left and right with the left and right cursor 
keys prior to the letter falling. When the letter is falling the mailman can 
only be moved right by pressing the key that matches the letter that is 


falling. To move the mailman left, use the same key simultaneously with 
the shift key. 


The game can be finished at any time by pressing the function 7 (seven 
key. 
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VARIABLES 


A$ (24) = Random letter table 

A$(Q) = Used for mailman movement with cursor key 
C$ = Colour table 

LM$ =Left facing mailman 

RM$ = Right facing mailman 


LV = Floor level 
S = Sound register 
SL = Good letter stack (number from top) 
SR = Missed letter stack (number from top) 
X1 = Horizontal location of mailman 
DX = Direction of mailman 
N = Number of dropped letters 
Number of bells/buzzes to sound 
K = Row number of dropped letter 
M$ = Key pressed 
M . = ASC value of pressed key 
K1 = Screen location for stacking letters 


F = Colour of dropped letter 
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29 


3o 


a] 


rai 
69 


199 
119 
129 
149 
169 
18¢ 
199 
29D 


229 


236 
249 
269 
289 
38D 
3198 


328 
33D 
3498 
359 
369 
378 
380 


495 
416 
4265 
450 


REM LETTER BOX 


of] 08 8F . 


SL=29: SR=21:X1=INT (RND(.) #8) +19: DxX= 


IFLV< 1 THENLV=1 
IFLV >STHENLV=S 
GOSUB1 969 


Define variables, put letters in table, print the mailman. 


on | | 


LV=1!POKE659, 
1 


FORL=1T024: AS(L) =CHRS (INT (RND(. )¥26+65) ) SNEXT 

PRINTLEFTS (DNS, 21) RIGHTS (RTS, X1) RMS 

E=INT (RND(.)¥4) 41:5 F=E+6-LV 

FORJ=ETOF: PRINT" E39 @E BE BI BS BE. «wm te ~ eS 


Ce ee ee ee ee ee a a ae a Sa a Sa ae ~ 


N=@: FORI=1TO24 


GOSUB1599 


Drop letters randomly, move the letters round the 


screen. 


PRINT" &9§ £83 "MIDS(CH, 3,1) TABCI+5) AB(I)3 


NEXT: NEXT 


PRINT" "3 sNOINT(RND(. #24) +1 


FORK=1TO22 


PRINTLEFTS(DNS,K) TAB(S+N)" . (83 8 "MIDS(CS,F,1)AS(N)" Be? 


FORT=1T085- (LV#12) : NEXT: GOSUB1599 
IFSL=9THENLV=LV+1: N=SR: GOSUB2999: GOTO19¢ 


IFK=23THEN169 
NEXT 
FORT=4+NTO32 


IFT=X1 THENGOSUB1586: T=T+1: GOTO499 
PRINTTAB(T)" . "MIDS(CS,F)AS(N) SPRINT" £3"; 


NEXT 
GOSUBS99¢8 


Moved missed letter into dead letter stack, sound buzzer. 


IFSR=STHENLV=LV-1: N=SL: GOSUB259@: GOTO199 


GOTO169 
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19OGB 
1929 


1949 
1959 


1969 
1249 


12598 


{249 
1278 
1289 
1599 
1529 
1536 
1549 
1559 
1569 
1579 
1589 
1596 
1595 


1690 
1639 
1649 
1659 
1655 
16698 
1679 
1689 
1699 
1769 
1759 
1766 
1778 
1789 
1799 
1899 
1829 
2090 
2926 
2949 


POKES3S289, 1: POQKES53281,1:°: PRINT" By " 


PRINT" be fa i 

Po a” a a a 

=— Fr wane oa | 

FORI=1TO22 

PRINT" BE @ & 
~—~ = 


By, 
Hisakg =" 
NEXT 
PRINT" 
_~_ Ab 


= id» 


PRINT" 


bb > Es 


PRINTLEFTS(DNS,21)" BS BE BE BJ 
PRINTLEFTS(BLS,29)" (3 8 


RETURN 
REM MOVE MAILMAN 


GETMS: IFMS=" " THEN1L699 


Print the game screen, move and print mailman routine. 


ia 


rd 


IFMS=" BE "THENPRINT® 4 "END 
IFMS=AS (N) THENMMS=RMS i DX=1:5 GOTOLS89 


M=ASC (MS) © M=M-128 


IFM=ASC (AS (N) +CHRS (9) ) THENMMS=LMS 3 DX=-1: GOTO1S89 


MS="": GOTO1699 


PRINTLEFTS (DNS, 21) RIGHTS (RTS, X1) MMS5 


KRL=X1+DX2 IFX1I<STHENX1=5 


IFX1 S29 THENK1=29 


_ 


b> 


a. a 
_ a 
a, a 
a ia 
By _ 
Be, a 
_ Bx, 
G88 8B 


’» 


a LETTER 
ery Es3 ” 
Oe . i oo 


_ 
eed 


b> 


b> 


Move mailman, letter went to good stack, sound bell and 


buzzer. 


IFK< 290RK >22THENRETURN 
IFDX=-1AND(X1< (N+3) ORX1> (N45) ) THENRETURN 
IFDX=LAND (X1< (N+4) ORX1L> (N+46) ) THENRETURN 


FORT=S+NTOSSTEP-1 


PRINTLEFTS (DNS, 22) TAB(T) MIDS (C$, F)AS(N)" EJ "LMS 


NEXT 
FORT=STO2STEP~-1 


PRINTLEFTS (DNS, 22) TAB(T) MIDS (CH, F) AS ( 


NEXT 


PRINTLEFTS (DNS, 22) TAB(5)° EJ "LMS 
REM GOT LETTER STACK 


POKE56138,F+1i 


FORK 1=1926+SL¥49T01926+29X%X49STEP4S 


POKEK1, PEEK (K1+49) : POKEK1+54272, PEEK (K1+54312) 


NEXT 


POKEK1L, 32: POKEKi1+54272,F+1:SL=SL-1 
N=1: GOSUB2996 = K=23: X1=5: RETURN 


REM BELL SOUND 


FORL=@TO29: POKES+L,@: NEXT 
POKES+1, 36: POKES+5, 9: POKES+15, 30: POKESt24, 15 
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N)" ‘a! 


2946 FORL=1TON!: POKES+4, 29 
2888 FORT=1TO3@@: NEXT: POKES+4,9 
2198 NEXT!:RETURN 
2598 REM BUZZ SOUND 
2529 FORL=9T026:POKES+L, @: NEXT 
2549 POKES+1, 179! POKES+S, 69: POKES+15, 13: POKES+24, 15 
2569 FORL=1TON: POKES+#4, 29 
2589 FORT=1TO3@@!: NEXT: POKES+4,@ 
2699 NEXT:RETURN 
5998 REM MISSED LETTER STACK 
5919 POKE5S6269,F+1 
S926 FORKL=1957+SR¥49TOLG5S7+21¥49STEP4G 
5949 POKEK1,PEEK(K1+49) : POKEK1+54272, PEEK (K1+54312) 
5950 NEXT 
5969 POKEK1,32:POKEK1+54272,F+1:SR=SR-1 
5988 N=1:GOSUB2599: RETURN 
CHECKSUM 
5=6 429=3962 1699=131 
2G=1961 459=527 1799=1565 
3G=2317 19G9=1643 1758=9 
49=2115 192G=3171 17469=786 
59=2588 1948=7198 177G=2592 
69=5878 1958=2957 1789=2856 
16G=3119 196@=131 179G=131 
119=1126 124@=2111 1699=2595 
126-1128 1258=3765 1829=1836 
149=348 1268=1859 288G=B 
168=3999 1279=1529 2929=1583 
189=18264 1289=143 2949=2815 
19G=2327 1599=9 2869=1398 
269=2418 152G=1297 2989=1634 
22G=1116 1539=1435 219G=332 
238=352 1549=2798 2589=9 
249=1888 1559=1421 2528=1583 
268=328 1569=3728 2549=2926 
286=1767 1579=1958 2569=1398 
39G=716 1589=1833 2589=1634 
31G=3959 1599=1946 269G=332 
32G=2093 1595=1197 SOSG=B 
33G=3944 1699=1389 5G19=786 
349=843 1639=39598 5929=2611 
35G=131 1649=2853 5949=2856 
3469=984 1659=1327 5959=131 
37G=2388 1655=2576 5I6G=2493 
389=1981 1669=131 5P8G=934 
49G=131 1678=1869 
419=352 1689=2229 TOTAL= 141169 
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Crash Barrier 


NePes2¥ 


tee oes 


Test your skiill as a high speed driver. Race around the track swapping 
lanes whenever you feel like it. Use the A, W, D & Z keys to steer 
and press the X key to swap speeds — High speed to low speed 
and low speed to high speed. 


Your car is red at low speed and green at high speed. 


You will gain more points by keeping the keys depressed and you get 
higher points for high speed. 


Do not crash into the walls and beware of the crash barriers that appear 
suddenly in front of you. You have 8 cars to demolish! 
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VARIABLES 


HS = Highscore 

SC = Score 

G1 = Number of cars used 

MS = Sound register 

V = Sprite register 

DX = Horizontal increment/decrement 
DY = Vertical increment/decrement 
X1 = Horizontal location of car sprite 
Y1 = Vertical location of car sprite 
S1 = Speed 

K = Key value 
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19 


49 
rad 9] 
69 


78 


8d 


196 


119 
129 
138 
1499 
189 
199 


29D 
281 

292 
293 
294 
296 
268 
216 
26G 
35D 
349 
345 
37D 
372 
38389 
39D 
38D 
319 
S15 
918 
32G 
322 
525 


REM CRASH BARRIER 


Build the racing car, position it at start, clear score. 


FORN=9T0191: READA: POKESS2+tN, A: NEXT: MS=54272 
GOSUBI99g 


PRINT" 3 Ld op BS BS BE BE OBE BE BE BB kl Oe CRASS 
H = BARRIER » = m= m =” 

PRINT" Bed Gey Ge3 Ge) (eo) G23 (3 fs) fs) fs) fe) [92 [9] BE BE BE BS 
Henne HHA BPP et Be Bt ioe le 
PRINT" feo Ged fey Ge) fe) [22 [23 fe) fey f2) BE Be BS OB BS Bs OB 
Bi Bi BS PS BE Bs BB BP eB Be Pe BB BB OB 
BS BE LS om "SHS" 3 ":G1=9:SC= 


G 
POKEMS+4, 6: POKEMS+24, 19: POKEMS+5, 192: POKEMS+4, 255: POKEMS, 1 
S:POKEMS+1, 1 

DX=@! DY=8! V=53248! X1=32!Y1=69:S1=8 

POKEV, X1:POKEV4+1, Y1:POKEV+16,9 

POKE2@4@, 13: POKEV+39, 2: POKEV+21, 1: POKEV+31,9 
WAIT197, 6G, 1: POKEMS+4, 129 

IFSC<STHENSC=9 

PRINT” §&3 £83 £83 [eo] (G23 [83 (83 (8) (3 G2) (93 G3 
Bl BE BE OBS BS OP OB OS OB OB OB OB 
LEN(STRS(SC)))SC 


iJ 
Bi ia 


Check keyboard, move car in current direction, add to score. 


K=PEEK (197) : IFK=64THENSC=SC+1:GOTO3S9 

IFK< >23THEN2ZS4 
IFS1=8THENS1=14: POKEV+t39, 5: POKEMS+24, 15: GOTO269 
IFS1=14THENS1=8: POKEV+39, 2: POKEMS+249, 19: GOTO269 
IFK=9THENDX=S: DY=-S1: DR=G; POKE2Z949, 13: GOTO269 
IFK=18THENDX=S1: DY=@: DR=15 POKE2Z@49, 194: GOTO2640 
IFK=12THENDX=6@: DY=S1: DR=1: POKE2Z949, 13: GOTO269 
IFK=19THENDX=-S1: DY=9: DR=9: POKE29499, 14 

sc=Sc+tS1 

X1=X1¢+DX:Y1=YitDyY 

IFPEEK (V+16) =G@ANDX1<¢ 24THENX1=24 

IFPEEK (V+16) =@ANDX 1 >255THENX1=1 5 POKEV+16, 3: GOTOS99 
IFPEEK (V+16) =3ANDX1 >S6THENX1=56 

IFPEEK (V+16) =3SANDX1< 1 THENX1=255: POKEV+16,9: GOTOS99 
IFY1L<SOTHENY 1=59 

IFY1>228THENY 1=228 

POKEV, X15: POKEV+t1,Y1 

IFRND(.)<. 1STHENGOSUB1L5S99 

IFRND(.)<. LSTHENGOSUB1 699 
IFRND(.)<. 1 STHENGOSUB1L799 

IFPEEK (V+31) =G@THENI89 

POKENS+é6,9 

POKEMS+24, 15: POKEMS+4, @: POKEMS+1, 72: POKEMS, 179: POKEMS+t5, 14 
9:POKEMS+4, 129 
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939 
332 
535 
3499 


945 
55d 


348 
389 


59s 


696 
6269 
649 
659 


1999 
19268 
1939 


1949 
19359 
19649 
19708 
1939 
1999 
1199 
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POKE198,9 


POKE2941, 15: POKEV+21, 2: POKEV+49, 2: POKEV+2, X1: POKEV+3, Y1 


FORT=1TO899: NEXT: POKEMS+4,9 
SC=SC-199:G1=Gitl: IFSC<9THENSC=9 


Game has ended, prompt for another, set highest score. 


PRINT” kd Ge) G83 Ge] [83 
Bi BS BS BE OB OBE 
LEN (STRS(SC)))SC 
PRINT" fi Ge] G2) [ey Gt: fey Gs) 
ld m “SPC(G1)" . " 
IFG1<STHEN1 99 

PRINT" £3 BS BE BE BS Bl BE BS BS BE OB OBS 
Em (Y/N) "2 FORT=1TO79: NEXT 

PRINT” Ei BS BS BE BS BE BS BS BE OBE BD OB 
GAME . (Y/N) "3 FORT=1T079: NEXT 

GETAS: IFAS=" " THENSSS 

IFAS="N" THENPRINT" Bu °: END 

IFSC >HSTHENHS=SC 

GOTO69 


Print car racetrack, previous high score. 


7 


ei Bl BS BE 
"SPC (6- 


Ld 


ANOTHER . GAM 


m ANOTHER w 


POKES3289, 6: POKES3281,3 


PRINT" Be mm "35 

PRINT’ bd ow to lm Pe a a aes 
ee ee ee a a” a ae. Pe ee a es 
a nan a2 a Ea "3 

PRINT’ id moo @® wa oeaoneen a ~ « 
Se ee ee ee ee a a” a” a a a a ceo 
a ea a aoa Wa. G&S wa B®"; 

PRINT’ id gg ow @ wo = Pe a a a a. 
Fe ee ee ee a a a a a aa. 
a ea aaa Wea FE a @"; 

PRINT’ ld mw ow @ we me ot Po a” as 
Fe ee ee ee ee a a a a a ae ~ 
a a2 a2 wo «2« Wn S&S ao "5 

PRINT’ id gw oo @ w2 wo «2 LS SB = 
a9 @ w2 a2 2 2« Lm oe oo LOW ~ 
~a ea a2 id ga. & wa @"; 

PRINT’ li mw w @ wm am isd . @ 2 « 
Se ee ee a a a ca; 
PRINT’ id og oa @ oo ~_ « La a lCU 
a a a” a a Ca Va Ce; 
PRINT’ ig mw ow @ wo om als 2 ™@ 2. «2 
Se a a a” a a a a a ae; 
PRINT’ ifm wa @ .Peoow.Waies.™ 
Mm m« XKKXXKXXXX | MF oo a a2 lid a2 2 ao 

_ a 


g 


b> 
b> 
b> 
b> 
b> 


b> 
bb 


rd 
Ben 


ay 


"bb 


»-p > Fp p= 


a! 


a 
ad 


n'y ee ee 


pry 


b 


_ 
a 


-_ 


ke, 


HIGH . SPEED & 
SPEED =a @ 


b 


| 


b> 
b> 


b> 


oe ee a d 
Ch |e | 4, 4 
re 
a ee (uo 
(deeds at ay 4 
((HH ce ae ‘yf 
i 
JE ee 
a 
TT ee 
Rr 
((BR CnC ee 
Oe) 
eT eT | 
RD Oe 
Lee ee ee 
| 
BABE COME Ode dE 
Pe ae 


ee i 
( «dil il 
dq e¢¢¢ 4 
(Kee 
(43 ¢ 
(Hee 4« 
er or or | 
(ak il 
oe i 
(a«h-3 
(CCC 
(UB cm a 
q¢¢«Oy « 
(Mhlaaail 
(((B am ¢ 
(4g((3g 
(9h «ag 
VAS 
ae 


(-H aa 4 
(Hhiak ¢ 
qdaae 4 
(UES ¢ 
qddae 4 
(Gi«a ¢ 
qq¢qqaqam 4 
(dalle i 
qq(Maqa ¢ 
(ida«k &. 
qddae 4 
(3K «i « 
en |i 
ar re | 
q¢decabe 
(Haag 
(94409 
(E485 
q (cg ( (a 

z 


Ca ee ee ee”, a ae” 


aa a ly . @ 


1226 PRINT" Ld am o 


(4. 
(<i 
4a 
(g 
a4 


( 
q 
4 
q 4 
den 4 
Te 
(444g 
(dad « 
ee 
(Naak 
q¢aaa 


(«Rll 
(decd 


(Hil «« 
qa 


- 


1249 PRIN 


Cn ee ee a a a © 


de 


1269 PRIN 


m PREVIOUS .. HIGH . SCORE 


=z PY ah _ _ a. ay _ a _ 
Re 
aie, _ he, _ =z a a, _ a, _ Ps SBD Ml» | + | | 3 


qa 4 


POKE2623, 149: POKES6295, 6 
1296 RETURN 


1289 
15986 


GOTO153¢ 


KK=32: 
INT (RND(.)¥11+12) 


=35 


cc 


IFAT=1THENAT=6 


CC=9:KK=1 


INT (RND(.)¥6+1)%4-3: 


Ni= 


M1l= 


1516 AT=1 


69 
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1529 
1539 
1549 
1559 
1569 
1696 
1619 


1629 
16396 
1649 
1659 
1669 
1799 
1716 


1728 
1732 
1749 
1752 
1769 


2989S 


2616 


2926 
2630 
2949 


2959 


3SGGD 
3019 
3928 
SIB3D 
3G4D 
3956 
3960 


3978 


398D 


P1=1924+M1+N1*49 
FORI=P1TOP1+89STEP4g9 

POKEI, KK: POKEI+54272,CC 

NEXT 

RETURN 

IFTA=1 THENTA=0: CC=3!: KK=32!: GOTO1639 
TA=1!:M2=INT(RND(.)¥2+1)¥4-3!:N2=INT(RND(.) 11) +7! CC=O:IKK=16 
ro] 

P2=19624+M2+N2*49 

FORI=P2TOP2+2 

POKEI, KK: POKEI+54272,CC 

NEXT 

RETURN 

IFTT=1 THENTT=9: CC=3! KK=32: GOTOL73@ 
TT=1L:M3=INT (RND(. )¥2+8)¥4-1!NS=INT (RND(.)¥11)+7!CC=G!KK=16 
g 

P3=1624+M3+N3X¥4B 

FORI=P3TOP3+2 
POKEI, KK! POKEI+54272,CC 

NEXT 

RETURN 


Data for the four positions of the car and explosion. 


DATAG,G,9,9,9,9,9,9,9,5,24,5,3,68,192,3,1246,192,3,255, 192, 
3,126, 192,3,126,192 

DATAG, 126,9,9,126,5,G,126,9, 3,126, 192, 3,126,192,3, 255,192, 
3,126,192,3,68,192 

DATAG, 24,9,9,9,9,9,9,5,9,9,9,B 

DATAGD, 9, 9,9,9,9,9,5,9,5,9,59,9,9,o 

DATA?, 195, 224, 7,195, 224, 1,9, 128, 7, 255, 224, 31, 255, 248, 31,25 
5,248,7, 255,224 

DATAL, G, 128, 7,195, 224, 7,195, 224,9,59,9,5,5,8,59,8,5,5,5,9,G, 
G,9,9,9,9,o 

DATAS2, 149, 64, 14G, 96, 149, 32, 69, 64, 92, 96,124 

DATA168, 69, 168, 92, 168, 124, 255, 69, 255, 92, 24G, 124 

DATA4G9, 69, 17, 92, 24G, 124, 49, 144, 17,148, 248,149 

DATAGSS, 22G, 17, 188, 249, 1546, 255, 229, 255, 188, 249, 154 

DATAL64&, 220, 168, 188, 168, 156, 32, 220, 464, 188, 96,156 
DATA32, 149, 64, 149, 96,149 

DATA99, G,9,8,9, 8,5, 2,8,8,9,8, 32,8, 42, 128,5,174, 168, 2,239, 1 
28,42, 255, 169 

DATAL1, 255, 224, 2, 255, 224, 2, 255, 128, 2, 199,98, 8, 186, 128,9,184 
,32,9,49,0 

DATAG, 32,9, 32, 32,9,9,8,128,2,5,2,5,9,9,5,9,8 
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CHEXSUM 


1G=G 
49=2838 
99=348 
69=2193 
7B=1694 
89=3312 
199=4656 
119=2954 
1296=1889 
1396=2684 
1949=1411 
189=1999 
199G=3934 
2996=2886 
291=1928 
2B92=33493 
2G3=3325 
294=3485 
2696=3358 
298=33508 
219=2915 
269=895 
35G9=1706 
369=2282 
365=3655 
37G=2283 
372=36493 
3890-1193 
S9G=1331 
99B=1167 
919=1373 
915=1375 
918=1375 
329=1392 
922=6493 
925=4831 
ISG=42G 
932=3536 
935=1719 
949=2841 
9495=3934 
3UG8=1439 
369=849 
S89=3312 
IIB=3332 
696=1212 
629=1359 
649=13209 
659=476 
1999=1178 
1926=584 
193BG=2496 


1949=2771 
19359=2962 
1969=2771 
1978=3881 
1989=3221 
1999=3757 
11966=3221 
1119=35437 
1129=3647 
1139=5599 
1149=2771 
1159=3833 
1169=2771 
1179=5599 
1189=3647 
1199=5165 
1299=3221 
1219=4269 
12298=3221 
1238=3855 
1249=2771 
1259=3131 
1269=2771 
1278=3837 
1289=1215 
1299=143 

1599=2814 
1519=35986 
1529=1427 
1539=1414 
1549=1414 
155@=131 

1569=143 

1699=28989 
1619=5999 
1626=1427 
1639=1962 
1649=1414 
1659=131 

1669=143 

1789=2849 


1719=5936 


1729=1429 
1739=1963 
1749=1414 
175G0=131 

1769=143 

29996=4848 
2919=4762 
292G6=15496 
2ZO3SG=1719 
29499=4455 
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TOTAL= 


293598=3895 
39GBB=2383 
3G19=2528 
S3G2G=241G6 
3G39=2664 
394G=2626 
SBSG=1216 
3969=4217 
3979=3818 
3G9BH=2311 


281527 


Laser Battle 


Defend three nuclear reactors by zapping aliens with your laser. The 
aliens must first destroy part of your bunker before they can shoot 
behind it. 


CONTROLS 
‘|’ — left 
Pp — right 
‘space’ — fire 
VARIABLES 
NM = Number of men left 
PH = Phase of guard ships (positioning, firing, retreating) 
PG = Column of player’s laser gun 
SH = Ship hit 


GS (I,J) = Guard ship number |, column, row, stopped, J=1, J=2, J=3 
FG = Guard ship firing gun 

MC = Mother ship’s column 

SC = Score 
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i REM LASER BATTLE 


Define variables, build sprites, wait to start game. 


3 FORS=54272T054296: POKES, 9: NEXT 

19 POKES3289,6:POKES3281,13:PRINT" fs m= = -— mo -— -— m= 
ao «a2 « «» «»& « « LASER . BATTLE" 

15 PRINT. OO OW WOO www. wt ll 
=m mm» w« a HIT « ANY w KEY « TO « START" 


17 NM=3 2 V=53248 5 POKEV+t21, 9: POKE264@, 192: POKEV+39, 3: POKEV,9: 
POKEV+37,7 

26 POKEV+38, 8: POKEV+1, 6: POKEV+16, 9: POKEV+t29, 1 

22 FORI=12288T012356: READQ: POKEI, @: NEXT 

24 FORI=12352T012414: J=INT (2% (RND(@) #7) )-1:POKEI, J: NEXT 

38 FORTI=49 1577049244: READG: POKEI, @: NEXT 

45 GETXS: IFX$=" " THEN45 

ug PRINT" Ba "5 : POKESS289, 9: POKES3281,9 

92 FORI=1784T01823: POKEI, 192: NEXT 

54 FORI=1994T01943: POKEL, 64: POKEI+54272, 7: NEXT 

96 POKE1867, 99: POKE1883, 99: POKE199@, 99: POKES6139, 2: POKES6155, 
2: POKE56172,2 

38 PG=19: POKE1843, 113: GOSUBL999 


Controlling logic, move laser gun, launch and move mother 


ship. 


69 X=PEEK (197) ; IFX=498THENGOSUB1L59 


62 IFX=33ORX=4 1 THENGOSUB199 

63 IFPH=2THENGOSUB499 

65 IFPH=9THENGOSUB229: GOTO79S 
67 GOSUB25¢9 

768 X=PEEK (197) | IFX=469THENGOSUB159 
72 IFX=S33ORX=4 1 THENGOSUB199 

7S IFRND(1)<. 91 ANDPH=1 THENPH=2 
73 IFPH=9THENSS 

77 IFRND (1) <. 80RPH=2THENSS 

78 GOSUB19¢ 

89 IFPEEK (1824+PG) < >LISTHENS99 
9D GOTO049 


199 IFPG=8ANDX=33THENRETURN 
195 IFPG=39ANDX=4 1 THENRETURN 
119 IFX=33THENI=-1:G0TO12g 


115 I=1 
129 POKEPG+ 1824, 32: PG=PG+I: POKEPG+1824, 113: POKEPG+56996, 3: 
RETURN 


Fire players laser, guard ships laser, generate laser sound. 


159g POKE99152, PG: POKE49154, 18: POKE49262, 66: POKE49217, 1 
1352 POKES4296, 15: POKES4277, 199: POKES4276, 17 
133 POKES4273, 17: POKES4272, 37: POKE54278, 248 
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155 
156 
157 
1469 
162 


163 
165 
176 
175 
177 
178 
189 
199 
191 


192 
193 
194 


196 
197 
198 


199 
299 
292 
296 
298 
219 


229 
221 


222 
225 
226 


227 
238 
231 


232 
235 
236 


237 
246 


242 
2493 
244 


SH=9: J=9: FORI=1T04: IFGS(I, 1) =PGTHENJ=I 

NEXT 

IFJ< >OTHENSP=GS (J, 2) : POKE99153, SP: SH=2: GOTOL65 

M=PEEK (V) +256% (PEEK (V+16) AND1) :P=PG¥8+23 

IFM<P-220R M>P-18 OR PEEK(V+21) =STHENSP=6: POKE49153,SP: 
GOTO165 

SH=1: SP=2!: POKE49153, SP 

SYS (49157) 

POKE49292, 32: POKE49217, 9: POKE49153, SP 

SYS(49157) 

IFSH=1THENGOSUB399 

IFSH=2THENGOSUB359 

POKE54276, 9: RETURN 
IFGS(1,1)=9ANDGS (2, 1) =BANDGS (3, 1) =BANDGS (4, 1) =@THENRETURN 
POKE49 152, PG: POKE49 154, 18: POKE49292, 66: POKE49217, 1: POKE542 
96,15 

POKES4277, 199: POKES4276, 17: FG=FG+t1: IFFG=STHENFG=1 

IFGS (FG, 1) =@THEN192 

POKE49152, GS(FG, 1) : POKE49153, GS(FG, 2) +1: POKE49217, 1: POKE49 
262,66 

IFPEEK (1784+G6S (FG, 1) )=1B2THENPOKE49154, 20: GOTO269 

IFGS (FG, 1) =PGTHENPOKE49 154, 21: GOTO299 

K=GS (FG, 1) : IFK=3ORK=190RK=36 THENPOKE49 154, 22: SYS (49157): 
GOTO59¢g 

POKE49154, 29 

SYS (49157) 

X=PEEK (197) : IFX=420RX=SOTHENGOSUB199 

POKE49202, 32: POKE49217, 9: POKE49153,GS(FG,2) +1 

SYS (49157) 

POKE542764, 9: RETURN 


| Position the guard ship, move the mother ship and fire her 


gun. 


IFGS(1,1)< >STHEN225 

I=INT (RND(1)¥3941) S IFI=GS(2, 1) ORI=GS(3, 1) ORI=GS(4, 1) THEN22 
i 

GS(1,1)=I:GS(1, 2) =9: POKE1924+1, 42: POKESS296+1, 7: RETURN 
IFGS (2, 1) < *STHEN23@ 
I=INT(RND(1)¥3941) S IFI=GS(1, 1) ORI=GS(3, 1) ORI=GS(4, 1) THEN22 
6 

GS(2,1)=1:G6S(2, 2) =G: POKE1924+1, 42: POKESS296+1, 7: RETURN 
IFGS(3, 1) < >*@THEN235 

T=INT(RND (1) #3941) SIFI=GS(1, 1) ORI=GS (2, 1) ORI=GS(4, 1) THENZS 
i 

GS(3,1)=1:G6S (3, 2) =9! POKE1924+1, 42: POKESS296+1, 7: RETURN 
IFGS (4, 1) < *STHEN249 

I=INT(RND (1) #3941): IFI=GS(1, 1) ORI=GS (2, 1) ORI=GS(3, 1) THEN23 
é 

GS (4,1) =1:G6S (4, 2) =9! POKE1924+1, 42: POKESS296+1, 7: RETURN 
IFGS (1,3) =1ANDGS (2, 3) =LANDGS (3, 3) =LANDGS (4,3) =1 THENPH=1: 
RETURN 

I=INT (RND(1)¥44+1) SIFGS(I, 3) =1THEN242 

POKEGS (I, 1) +49%GS (1, 2) +1924, 32:GS(1,2)=GS(1I,2) +1 

POKEGS (I, 1) +4G¥GS(1, 2) +1924, 42: POKEGS (1,1) +49%GS (1,2) +5529 
6,7 
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246 
243 
259 
252 
253 
255 
257 
269 
263 
265 
279 


275 
289 


282 
284 
287 
288 
289 
29S 
292 
296 
298 
299 
38D 


319 
Sis 
349 


358 


355 
356 
357 
3469 
496 
462 
495 
497 


419 


412 
915 


09GB 
392 


IFRND(1)<.30RGS(I, 2) >=19THENGS(1I,3)=1 

RETURN 

IFPEEK (V+21) < >@THEN255 

IFRND (1) <. 95 THENRETURN 

MC=2: POKEV, 25: POKEV+1, 59: POKEV+21, 1: POKEV+16, 9: RETURN 
IFPEEK (V) =253THENPOKEV, 9: POKEV+16, 1:GOTO269 

POKEV, PEEK(V) +3 

IFPEEK (V) >=S@ANDPEEK (V+16) =1 THENPOKEV+21, 9: RETURN 
I=PEEK (V) +256% (PEEK (V+16) ANDL) !MC=INT ( (I-23) /8) 43 

IFRND (1) <. SSTHENRETURN 

IFMC< >GS(1, 1) ANDMC< >GS (2, 1) ANDMC< >GS (3, 1) ANDMC< >GS.(4, 1) 
THENGOSUB289 

RETURN 

POKES4296, 15! POKE5S4276, 129: POKE54277, 15: POKE54273, 49: POKES 
4272, 299 

POKE49152, MC: POKE49153, 2: POKE49217, 1: POKE49292, 66 
IFPEEK (17844+MC) =192THENPOKE49 154, 29: GOTO299 
IFMC=PGTHENPOKE49154, 21: GOTO299 

IFMC=3ORMC= 1 9ORMC=36THENPOKE49 154, 22: SYS (49157) : GOTOSaG 
POKE49154, 29 

SYS (49157) 

X=PEEK (197) : IFX=420RX=5@THENGOSUB1 29 
POKE49262, 32! POKE49217,@: POKE49153,2 

SYS(49157) 

POKES4276, 9: RETURN 

SC=SC+5@! GOSUB1990: POKEV+39, 7: POKE294G, 193: GOSUB799: POKES4 
296, 

FORT=1TO59@!: NEXT 

POKEV+21,@!POKEV+39, 3: POKE294@, 192 

RETURN 


Explode the guard ship and send guard ships running. 


POKE1924+GS(J,1)+GS(J, 2) ¥4G, 192: POKEGS(J,1)+GS(J, 2) *49+552 
96,8 

SC=SC+19: GOSUBI999 

FORT=1T019@: NEXT 

POKE1924+GS(J,1)+GS(J,2)¥49, 32:G6S(J,1)=9 

RETURN 
IFGS(1,1)<>@ORGS (2, 1) < >BORGS(3, 1) < >*PORGS(4, 1) < >*OTHENGSS 
FORI=1T04:G6S8(1,3)=9: NEXT! PH=9: RETURN 
I=INT(RND(1)¥4+1)!IFGS(1, 1) =@THENGGS 
POKE1924+GS(1,1)+GS(1I,2)*4G, 32: IFGS(I, 2) *@THENGS (1, 2) =GS(I 
»2)-1 
POKE1924+GS(1,1)+GS(I, 2) ¥49,42:POKEGS(1I,1)+GS(1, 2) *49+5529 
6,7 

IFGS(I, 2) =@THENPOKE1924+GS(1I,1),32:GS(1I,1)=9 

RETURN 


Start a new round, print men left and title. 


IFPEEK (1824+PG) =LISTHENS469 
POKEV+49, 9: POKEV+28, 2 
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384 
395 
396 
588 
389 
31d 
315 
329 
33d 
935 
55G 
369 
965 


976 


696 
629 
625 
638 
6499 
798 
795 
719 
1999 


1995 


1GGOBS 


19919 


19929 


19B3E 
1G1GG 


191196 


19126 


19136 


19148 


POKE2@41, 193: K=PG¥8+15: IFK>255THENPOKEV+2, K-256! POKEV+16, 2 
: GOTO5¢4 

POKEV+ 16, PEEK (V+16) AND253! POKEV+2, K 

POKEV+3, 269: POKEV+21, 3: GOSUB799 

POKES4276, 6: POKES4277,@ 

FORT=1T01996: NEXT: POKE2@4@, 192: POKEV+21, 9: POKEV+39, 3: POKES 
4296, 

POKE53289, 6:POKE53281,13:PRINT" Bs mm = -— m= —= = -ma 
a m= - m» mm» mo « LASER « BATTLE"! PRINT 
NM=NM- 1: IFNM=@9THEN69 

PRINT"YOU . HAVE 2 "3NM3" . MEN . LEFT":PRINT 
FORT=1TO399@: NEXT 

FORI=1T04:G6S(1, 1)=0: NEXT: PH=¢ 

GoTOSs 

FORI=1TO3: POKES328@, INT (RND(1)%19) +23: GOSUB79@: NEXT: POKEV+ 
21,8 

POKES3289,6:POKE53281,13:PRINT" bs mw = = m= = = m= o 
~~ = m= —- mo oo « LASER » BATTLE": PRINT 

GOTOS15 


Print scores, generate explosion, and update the scores. 


a OVER": PRINT 

PRINT" YOUR . SCORE w. WAS . ";SC 

POKEV+21,6: POKES4296,9 

GETXS: IFXS=""" THENEND 

GOTO639 

FORX=1STOSSTEP- 1 POKES42964, X: POKES4276, 129 

POKES9277, 15: POKES4273, 49: POKES4272, 299: NEXT 

RETURN 

PRINT” EY Ge) Gey fey G23 fe) [3 fs) O23 [sy £2) [2] G2 f93 22 fe is 
Cs] 053 [sl fe2 fy 0 2 ok C=C SCORE: 2 "5SC3 
RETURN 


3 
o 
3 


Data for mother ship, your laser gun and explosion. 


DATAG, 126, 9,192, 255, 3,193, 255, 131,195, 255, 195, 199, 255, 227, 
207, 255,243 

DATA297, 255, 243, 287, 255, 243, 204, 239,51, 252, 238, 63, 252, 239, 
63, 267,255,243 

DATA297, 255, 243, 207, 255, 245, 199, 255, 227, 195, 255, 195, 192,12 
7,3 

DATAG, 62, 9,9, 28,9,9, 28,9,9,28,5 

DATA24, 173,89, 192,133,178, 169,4, 133,179,173,1,192,141,3,192 
,169,8,295,3 

DATA192, 249, 19, 286, 3, 192, 24, 165, 178, 195, 49, 133, 178,165,179 
,195,9,133,179 

DATA746, 21,192, 168,9, 169, 93, 145, 178, 24, 1465, 178, 133, 189,165, 
179,195,212 

DATA1L33, 181,169, 1,145, 189, 238, 1, 192, 24, 165, 178, 195, 49, 133, 
178,165,179, 195 

DATAG, 133,179,173, 1,192, 205, 2, 192, 298, 211,96 
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CHECKSUM 


1=9g 
3=1771 
19=3856 
15=2911 
17=4446 
29=2737 
22=2193 
249=3728 
3G=2119 
45=1195 
39=1651 
92=1741 
9494=2623 
96=3651 
98=15496 
69=1899 
462=14693 
63=1918 
65=1581 
67=298 
7B=1899 
72=1693 
P3=1979 
735-817 
77=16492 
78=3983 
89=1878 
9B=4976 
199=1418 
195=14981 
119=1793 
115=392 
129=4951 
159=2662 
152=2935 
153=2923 
155=3182 
156=131 
157=3461 
169=3282 
162=49789 
163=1613 
165=521 
178=1965 
175=S521 
177=1916 
178=1922 
189=728 
199=3787 
191=3324 
192=34999 
193=1231 


194=3718 
196=3134 
197=2411 
198=4476 
199=586 
299=521 
2B2=239D 
296=2584 
298=521 
219=728 
229=1328 
221=4535 
222=3427 
225=1331 
226=4542 
227=3427 
239=1331 
231=4536 
232=3429 
235=1328 
236=4539 
237=3425 
249=4338 
242=2639 
243=3598 
244=4378 
246=2794 
248=143 
259=1584 
252=1133 
253=3224 
255=2759 
257=889 
26G=3153 
263=3886 
265=1137 
279=5186 
275=143 
289=3489 
282=2522 
284=2781 
287=2938 
288=3851 
289=586 
299=521 
292=2398 
296=1841 
298=521 
299=728 
3GG=3678 
319=975 
315-1979 
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3499=143 

359=49462 
355=1216 
356=975 

357=2988 
369=143 

499=4531 
492=2293 
495=2635 
497=49776 
419=4376 
412=3939 
415=143 

53GG=1698 
3G2=1328 
994=4863 
IG5S=2268 
396=1762 
I983=1166 
SG9=3812 
918=4194 
915=1662 
329=2259 
I3G9=1932 
IS5=2974 
559=476 

369=3852 


365=49194 
I7B=353GB 


696-1934 
629=16149 
625=1239 
639=1214 
649=532 
7OB=2599 
7BS=2246 
718=143 
1G6G=2398 
1995=143 
19969=4999 
19G19=4399 
1GB2G=3333 
1969359=1696 
19196=4957 
19119=4349 
191 29=3979 
1G139=4449 
19149=2365 


TOTAL= 344793 


Attack of the Vogons 
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Escape from VOGON territory and avoid collisions. When your ship is 
yellow (achieved by pressing space bar) it can withstand a collision. 


ame ends when you collide while not being ‘armed’ for collision. 


ARIABLES 


,oC = Round, score 
‘ = Number of collisions 
X,PC = Last, current player’s X co-ords. 
= Maximum number collisions allowed 
L,A,W,HI,LW = Sound 
EEK(177) — PEEK(183) = VOGON directions 


145 


1G 


15 
29 


25 


3G 
46 


45 
69 
7D 
9D 


9S 
97 
98 


199 
119 
15d 
199 


192 


194 
195 


199 


296 
216 
226 
238 
235 
2499 
2359 


REM VOGON ATTACK 


Build sprites, vogons and spaceship, poke machine code 


into memory. 


POKES3281,9:POKE53289,9:PRINT” Es ais. it, os. Ga Oa cs ae 
=m m w» ATTACK o OF « THE » VOGONS" 

PRINT” bey £83 Gs) G83 fs} [23 8) (23) Es] ie) ce] ts) fey” 

V=532498: POKEV+39, 14: FORI=1TO7: POKEV+39+I, 19! NEXT! POKEV+37, 
8:3 POKEV+38, 1 

POKE294@, 192: FORI=1TO7: POKE2949+1, 193: NEXT: POKEV+28, 9: POKE 
V+23,9:POKEV+t29,¢ . 
FORI=12288T01235@: READQ: POKEI, @: NEXT 
FORI=12352T012397STEPS: READQ, K: POKEI,@: POKEI+1,K!POKEI+2,9 
2 NEXT 

FORI=12499T012414: POKEI, 9: NEXT 
FORI=49152T049411: READ@: POKEI, @: NEXT 

VL=54296: W=54276: A=54277! HI=54273:LW=54272 

PRINT” «2 mw momo lm um um Ol HIT ANY oo KEY 4 TO 
a BEGIN" 

GETXS: IFX$=" "THENSS 

PRINT" Es "3 
FORI=1964T01944STEP4S: FORI=6T029: POKEI+J, 192: POKEIL+J3+54272 
y LLINEXT!: NEXT 


Controller logic, move vogons round the screen and player. 


R=R+1: IFR>6THENR=6 
NC=@!:LX=29!:MC=1 

PRINT" & &3 "3 

POKEV+21, 255! POKEV+2, 179: POKEV+3, 220: POKEV+4, 189: POKEV+S, 1 
5a 

POKEV+6, 178: POKEV+7, 59: POKEV+8, 50: POKEV+9, 229: POKEV+19, 79: 
POKEV+11,229 

POKEV+12, 19: POKEV+13, 159: POKEV+14, 79: POKEV+15, 59 

POKEV+16, 64: POKEV, 39: POKEV+1, 159: POKE167, 1: GOSUB1G9@: POKEV 
+39, 

POKE177, 4: POKE178, 2: POKE179, 3: POKE189, 4: POKE181, 1: POKE182, 
2!:POKE183,3 : 

FORI=1TOR/3:SYS(49152) : NEXT 

GOSUB1999 

IFRND (1) <. STHENPOKE167, INT (RND (1) ¥7+1) SYS (49349) 
IFPX>338THEN19G 

IFPX< 26THENPOKEV, 29 

K=PEEK (197) : IFK=4@ANDNC<MCTHENPOKEV+39, 7 

CO=PEEK (V+3@) : IF (COAND1) =@THEN299 
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39D 
38S 
319 


33d 
349 
359 
39D 
IG2 
38S 
396 
587 


389 
319 


912 
529 


352 


949 
35d 


1969 
1919 
1929 
16969 
19919 
19926 


199B36 
19G5G 


19966 


19199 


19119 


Blow up enemy ship, remove from board, blow up player, 


finish game. 


IF (PEEK (V+39) AND15) < >7THENS@@ 

FORI=LWTOLW+24: POKEI,@: NEXT 
FORX=15TO@STEP-1!POKEVL, X:POKEW, 129: POKEA, 15! POKEHI, 20+X: 
POKELW, 290: NEXT 

POKEV+21, PEEK (V+21) AND (255- (COAND254) ) !POKEV+30,0 
POKEV+39, 3:NC=NC+1 

GoTo2s¢g 

POKEV+28, 1: POKEV+23, 1: POKEV+29, 1 

FORI=LWTOLW+24: POKEI,@:NEXT 

FORI=1T059: J=INT (RND (1) 128-89) : IFJ<@THENI=6 

POKEHI, 19+1:POKELW, 299 

POKE12288+INT (RND(@)*63) ,J:POKEVL, (69-1) /19+9: POKEW, 129: 
POKEA, 15 

NEXT 

= o« GAME . OVER":PRINT" £e} (23 [el bel wi wi" 
FORI=LWTOLW+t24: POKEI, 9: NEXT 

PRINT’ » =» -— m= -— -m—-m—m- om mo mo a YOUR » SCORE « W 
AS «. "3SC 

POKEV+21,@ 

GETX$: IFX$=" "THENEND 

GO0TO54g 


Update the score periodically and data for sprites and 


sound. 


PX=PEEK (V) +256% (PEEK (V+16) AND1) : IFPX>LXTHENSC=SC+PX-LX:LX= 
PX 

PRINT"SCORE: . "3SC3" 3 "3 

RETURN 

DATAZ52, 28, 63, 252, 42, 63, 224, 62, 3, 208, 127, 7, 200,127,11,196, 
255,147 

DATA194, 247, 163, 225, 247, 199, 255, 247, 255, 255, 193, 255, 224, 24 
7,135,192, 247 

DATA131, 192, 247, 131,193, 127, 67, 194, 62, 35, 196,62,19, 208,62, 
11,298,28,7 

DATA2Z24, 28, 7, 252, 28, 63, 252, 28,63 

DATALS, 240, 31, 248, 56, 28, 124, 62, 198, 99,131,193, 7, 224,15, 248 
573 224,3,192 

DATA131, 193, 195, 195, 192, 192, 69, 69, 31, 248,15, 249 


Data for moving sprites round the screen. 


DATA169, G, 133, 184, 239, 184, 166, 184, 189, 139, 192, 133, 169,165, 
184,198,133 
DATA17G, 32, 39, 192, 165, 184, 201, 7, 208, 233, 76, 138, 192, 166, 184 
,189,176,2 
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19129 


191398 


XN 


19146 


1Gis¢ 


19169 


1G176 


19189 


19199 


19296 
1G3GD 


DATA2@1,1, 208,14, 230,17, 166,178,189, G, 268, 56, 233, 6, 157,35, 
298, 96,2G1,2 

DATA2@8, 31,166,176, 189,95, 298, 56, 233, 6, 157,9, 208, 261, 252,14 
4,236,169, 255 

DATASG, 229, 169, 133,171,173, 16, 268, 37,171,141, 16, 298, 96, 201 
,3, 288,14, 239 

DATA17G, 166, 179, 189, G, 298, 24, 195, 6, 157, G, 208, 96, 166, 179,18 
9,9,299,24 
DATA1@5,6,157,8, 268, 261, G, 176, 24G, 173,16, 208,5, 169, 141, 16, 
298,96,1,2,4 

DATAS, 16,32, 64, 128, 169, 9,133, 184, 169, 1,133, 169, 169,G,133,1 
79,165,197, 291 

DATAG2, 208, 7, 169,1, 133,176, 76, 3G, 192, 201,33, 298, 7,169,2,13 
3,176,76, 38,192 

DATA2@1, 12,268, 7, 169, 3, 133,176, 76, 38,192, 281,41, 208, 7,169, 
4,133,176, 76,39 

DATA192, 96 

DATA165, 167, 16,179, 232, 189, 8, 268, 295, 1, 208, 176, 25, 292, 189, 
G,208,295,g 
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19318 DATA2@8, 176,8, 166, 167, 169,3, 157, 176,95, 96, 166, 167, 169, 2,157 
3176,9,96 
19326 DATA2G2, 189,95, 298, 295, G9, 208, 176,8, 166, 167, 169, 4, 157, 176,95, 
96,166,167 
19339 DATH169,1,157,176,5,96 
CHECKSUM 
1=9 235-1199 19929=3989 
19=4453 249=2856 1GG3G=1793 
15=568 259=2271 16959=4991 
29=4914 3GG=1952 19969=2536 
25=4798 395=1778 19189=38764 
3G=2193 319=4513 19119=3834 
49=3891 33G=3218 19129=49896 
45=1759 349=1418 19139=4266 
69=2194 359=525 19149=4215 
7B=3352 509=20854 19159=3875 
9G=23G1 592=1778 19148=4976 
95=1196 595=3499 1G179=4343 
97=435 594-1399 19189=4424 
98=4795 597=4272 19199=4449 
19G=1635 S5G9=131 19299=458 
119=1385 519=2937 1B3GG=3967 
159=471 512-1778 1G31G=3771 
199=3853 524=2268 19326=3868 
192=4575 539=616 1933G=1129 
194=3929 549=1214 
195=3643 559=529 TOTAL= 188269 
199=3467 1999=5422 
269=174g 1919=1199 
219=348 1929=143 
22G=3991 1GG9G=358g 
238=19897 16916=422¢6 
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The task is to prevent the alien ships from landing. To fire, select 
horizontal and vertical co-ordinates (both @—99) and then press the 
space bar. 


The game ends if the aliens land or if you run out of energy. 
Scoring: mother ship is 1@@ points, other ships 5@ points. 
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SX,SY = Strike point X,Y co-ords. 
HT = Sprite hit flag 

H,VT = Horizontal, vertical co-ords. 
E = Energy 

SC,R = Score, round 


VL,W,A,HIL.LW = Sound effects 
TE Energy parameter for calls to ‘PRINT ENERGY’ 


F Sprite that is firing 

T™ = Effectively a time measurement for period that 
selected enemy ship has been visible 

CN = Count to determine where player is up to in keying in 
co-ordinates 

XD,YD = X, Y differences 


M1,M2,C1,C2 = Gradients, Y-intercepts 
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19 


1S 


29 


25 
3D 


3S 
49 


45 
bay 7] 
69 
65 
7B 
9S 


9S 


152 
195 


197 
116 
LisS 
126 
125 


127 
132 
135 
149 


145 
159g 
155 
157 
169 


165 


REM INTERCEPTOR 


Create the alien ship and missiles, set screen colours and 


define variables. 


POKES3S281, 7: POKES3289,9: PRINT" £4 "3TAB(14)3" a INTERCEPTOR 
"SPRINT® (ey G83 Ce) (ed (2) fe} £23 Ee) C2) fo] O82 te” 

V=53248: POKE294@, 192: POKE2@41, 193: POKE2942, 193! POKE2943, 19 
3: POKE2944,194 

POKE2945, 194: POKE2946, 195: POKE2947, 192: POKEV+49, @: POKEV+41 
» G3 POKEV+42, 2 

POKEV+43, 11: POKEV+44, 11: POKEV+45, 3 
FORI=12288T012399STEP3: READ@: POKEL,@: POKEI+1,9:POKEI+2,9: 
NEXT 

FORI=12312T01235@8: POKEL, 9: NEXT 
FORI=12352TO12358STEP3: READG: POKEI, @: POKEI+1,@:POKEI+2,9: 
NEXT 

FORI=12361T012414: POKEI,@: NEXT 
FORI=12416T012478: READ@: POKEI, @: NEXT 
FORI=12489T012542: READ@: POKEI, @: NEXT 

POKEV+27, 129 

VL=54296: W=54276: A=54277:!: HI=54273: LW=54272 

PRINT’ 2 wm mm mo mm mm m a2 HIT «& ANY 2 KEY « T 
O . START" 

GETXS: IFXS="" THENSS 


Draw the screen, messages to player and radar screen. 


R=R+1:PRINT" Bs "3 !POKE53281,9 
FORI=1924TO1984STEP4@: POKEL, 194! POKEI+54272, 12: POKEI+39, 11 
6:POKEI+54311,12 

NEXT 

FORI=1925T01962: POKEI, 119: POKEI+54272, 12! NEXT 
FORI=1799TO1985STEPS9: POKEL , 78! POKEI+54272, 12: NEXT 
FORI=1817TO2022STEPG1: POKEI, 77! POKEI+54272, 12: NEXT 
POKE1752, 78: POKES6924, 2: POKE1774, 78: POKE5S6946, 2: POKE1753, 7 
7:POKE564925, 2 

POKE1775, 77: POKES6947, 2 

POKE1751, 111: POKES6923, 12: POKE1776, 111: POKE56948, 12 
FORI=1754T01773: POKEI, 111: POKEI+54272, 12: NEXT 
FORI=1838TO1958STEP4@: FORJ=9T01G: POKEI+J, 169: POKEL+3+54272 
, 13!NEXT! NEXT 

FORI=1798T01898: POKEL, 82! POKEI+54272, 12! NEXT 
FORI=1998T02998: POKEI , 69: POKEI+54272, 12! NEXT 
FORI=1837TO1957STEP4@: POKEL, 72: POKEL+54272, 12: POKEI+12, 84: 
POKE1+54284, 12 


NEXT 

PRINT" G3 Gey Ge) Gey Gey ted Gey ed eo oe) 6s) ced ce) fed fe3 oes ol 

Cc] GS) fs) 3 BS BS BS OB BE BE BS ES FIRE BS OB ee 
Bl BS BS BE OB BE OBS BE SHLD" 

PRINT” £2 f83 [92 GG Bi BS BE HORIZ: BE BI BS BS BS OB Be OB 

Bi Bl BS BE BE BE BE BS BEVERT: © OO oc 668 668 88 68 88 ENE 
RGY” 
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167 
172 
173 
175 
189 
18s 
185 


199 


193 
195 


299 
295 
296 
297 


298 
299 
219 


215 
229 
225 
239 
235 
249 
245 


259 
255 
269 
499 


493 
495 
419 


415 
426 
422 
425 
427 
439 


435 


KLI=INT (RND (1) 20) :K2=INT (RND(1)*¥29) SK3=INT (RND (1) #29) 
POKEV+2, 135+K1: POKEV+4, 223-K2 

POKEV+6, 179+K3: POKEV+3, 209+R¥2! POKEV+5S, 2069+R¥2 

POKEV+7, 209+R¥2: POKEV+21, 14 

POKEV+8, 25+4%K1: POKEV+19, 77-4#K2! POKEV+12, 178+K3 

POKEV+9, 59+8*R: POKEV+11, 59+GX¥R: POKEV+13, 59+8X#R 

POKEV+16, 32! POKES42664, 7! POKES6267, 7: POKES6289, 7: POKES6299, 
7 

E=E+55-5#R! TESE! GOSUB1999: POKES6299, 3: POKES6219, 3: POKES612 
8,2 


POKE56198,3 

GOTO738 
Input the vertical and horizontal co-ordinates, launch and 
move alien. 

GOTO6é9¢9 


ITFRND(1)<. 6THEN2Z99 

IFF< >OTHENTM=TM+1: IFTM>1OANDPEEK (V+2XF +1) SSOTHENSOS 
IFF=9THENF=INT (RND (1) ¥3+4) s TM=9: IF (PEEK (V+21) AND2% (F-3) ) = 
THENF=9: GOTO289 

POKEV+21, PEEK (Vt21) OR2“°F 

GETXS: IFXS=" . "AND (CN=9ORCN=2) THENSSS 

IFPEEK (V+9)>189 OR PEEK(V+4+11)>189 OR PEEK(V+13)>189 OR E<= 
8 THENSSD 

IFXS$=" " THENZDD 

IFXS<"S" OR XB>"9" THENZDD 

CN=CNt1 

IFCN=1 THENPOKE 1994, VAL (XS) +48: K=19*VAL (XS) : GOTO29G 
IFCN=2THENPOKE 1995, VAL (XS) +48: H=K+VAL (XS) : GOTO298 
IFCN=S3THENPOKE2@17, VAL (XS) +48: L=19#VAL (XS) = GOTO2Z9G 

CN=9: POKE2918, VAL (XS) +48: VT=L+VAL (XS) : GOTO2Z99 


Check if alien has been hit by your missiles. 


POKE1836, 32: IFHT=STHENSC=SC+199: GOTO799 
IFHT=4O0RHT=STHENSC=SC +59: GOTO79G 

GOTO29¢ 

E=E-5: TE=E: GOSUB1999: CN=9: SX=INT (3. 162#Ht23) SSY=INT(185-1. 
S74IXVT) : 

POKE1836, 169 

HT=6: FORI=4T0O6: YD=PEEK (V+2#I+1) -SY+19: IFYD< 9THENYD=-YD 
XD=PEEK (V+2¥1) +2* (8-1) (PEEK (V+16) AND(2*TI) ) -SX+12: IFXD<9 
THENXD=~XD 

IFXD< LSANDYD< LSTHENHT=I1 

NEXT: POKEV+21, PEEK (V+21)O0R129 

IF (PEEK (V+21) AND2*% (HT-3) ) =STHENHT=9 

IFSX=9 1 THENSX=86 

IFSX=268THENSX=272 

M1=(SY-193) /(SX-91) 1M2=(SY-193) / (SX-268) :CL=193-M1#¥91:C2=1 
93-M2X268 

FORY=193TOSY STEP-3S 


152 


44g 
445 
447 
459 
455 
469 


463 
465 
475 
489 
482 
484 
436 
488 
499 


38D 
385 


S19 
315 
329 


325 
53D 
335 
337 
34D 
545 
959 


353 
355 
369 


965 


699 
682 
695 


619 
615 


616 
617 


POKEV+1, Yi X=INT((Y-C1)/ML) 
IFX>2S5STHENPOKEV+ 16, PEEK (V+16) ORI! POKEV, X-256: GOTO45¢ 
POKEV+16, PEEK (V+16) AND254: POKEV, X 

K1i=193-Y:5K2=39: GOSUB48g 

POKEV+15, Y2 X=INT((Y-C2) /M2) 
IFX>25STHENPOKEV+16, PEEK (V+16)O0R128:POKEV+14 ,X-256:GOT046 
3 

POKEV+16, PEEK (V+16) AND127: POKEV+14, X 

K2=46: GOSUB48¢ 

NEXT: POKEV+21, PEEK (V+21) AND126: GOTO259 
IFK1<8THENPOKEV+tK2, 7: RETURN 

IFK1< LSTHENPOKEV+K2, 1: RETURN 
IFK1i<SOTHENPOKEV+K2, 3: RETURN 
IFK1<4S5THENPOKEV+K2, 15: RETURN 
IFK1<SSTHENPOKEV+K2, 12: RETURN 

POKEV+K2, 11: RETURN 


Enemy fires missile at base, move the missile. 


TE=9: GOSUB1999: POKE18564, 1469: B=9: IFEX 2GTHENB=1 

EX=PEEK (V+2F ) + (2* (8-F) ) # (PEEK (V+16) AND2“F) : EY=PEEK (V+2%F+ 
1) 

IFEX=159THENPOKEV+2#F, 154: EX=154 
IFEX=299THENPOKEV+2#F , 295: EX=295 

M1L=(EY-193) / (EX-156) 3M2=(EY-193) / (EX-299) :C1=193-M1¥159:C2 
=193-M2kX299 

POKEV+t21, PEEK (V+21)0R129: FORY=EYTOL9SSSTEPS 

POKEV+1,Y:2 X=INT((Y-C1)/M1) 

IFX >255THENPOKEV +16, PEEK (V+16) OR1: POKEV, X-256: GOTOS549 
POKEV+16, PEEK (V+16) AND254: POKEV, X 

K1=193-Y:K2=39: GOSUB489 

POKEV+15, Ys X=INT((Y-C2) /M2) 

IFX >25S5THENPOKEV+ 16, PEEK (V+16) OR128: POKEV+14 ,X-256:GOTOS55 
3 

POKEV+16, PEEK (V+16) AND127: POKEV+14, X 

K2=46: GOSUB489 

NEXT: POKEV+21, PEEK (V+21) AND (126-2°F) : F=9: POKE1856, 32: E=E- 
INT (RND (1) #5+19) ; 

TE=E : GOSUB1999: GOSUB1 199: GOTO299 


Plot the enemy on the screen and reset any previous dots. 


IFRND(1)<.7THEN295 

T=INT (RND (1)%¥3+4+1) 5 D=RND(1) 2 IF (PEEK (V+21) AND2“1) =S@THEN699 
IFD< . 4THENPOKEV+241+1, PEEK (V+2#1I4+1) +1: POKEV+2%1+7, PEEK (V+2 
*¥I+7)+4: GOTO29S 

IFPEEK (V+2¥1I) < 167 THEN629 

POKEV+2*1, PEEK (V+I#¥2) -13 J=PEEK (V+I¥2+6) + (2% (5-1) ) ¥ (PEEK (V+ 
16) AND2* (I+3)) 

IF J >=256ANDI<=259THENG18 

POKEV+2#1 +6, PEEK (V+2¥1I+6) -4: GOTO295 
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618 


629 


622 
624 
626 


78S 
7BS 


716 
728 
725 
738 


735 


7499 
759 


SOD 


819d 


826 

1669 
1992 
1995 
191G 
1166 


1115 

1129 

1GGBBS 
LIG1G 
19926 
19G3G0 
1GBG4G 
1GBSG 
1GG4G 


19679 


19686 


POKEV+16, PEEK (V+16) AND (255-2% (I+3)) ss POKEV+2#I +6, I-4: GOTO2D 
a 

POKEV+2¥*1, PEEK (V+I¥2) +1: J=PEEK (V+I¥2+6) + (2% (S-1) ) ¥ (PEEK (V+ 
16) AND2* (I+3)) 

IFJ >=252ANDI<=255THENG626 
POKEV+2#1I +6, PEEK (V+2#1+4) +4: GOTO295 

POKEV+t16, PEEK (V#16) OR(2% (I+3)) SPOKEV+t2¥I +6, J+4: GOTOZ9S 


Destroy the enemy ship, print the current score, restart 


game. 


POKEV+21, PEEK (V+21) GR2“°HT! POKEV+39+HT, 3 
FORI=1S5TO@STEP-1:POKEVL, I: POKEW, 129: POKEA, 15: POKEHI, 6: POKE 
LW, 199:NEXT 

POKEW, 9: POKEA, @: POKEVL,@ 

POKEV+21, PEEK (V+21) AND (255-2*HT-2* (HT-3) ) : IFHT=FTHENF=9 
POKEV+39+HT, 11: IFHT=6THENPOKEV+45, 3 

PRINT’ £3 G8) [ey (Gey (23 cs) O83 (8) G2) (2) G0) Ge) G2) [ey G3 Ge) os3 
key] fe) £8] fs] [9] [2] BS BP BS BD BE oe SC I"5SC; 
IFHT=6THENE=E+19! TE=E: GOSUB199@ 

IF (PEEK (V+21) AND13) =9THENI9G 

GOTO29¢g 


Print score, end game, generate sound effects and dab fer 


sprites. 


POKEV+21,9:PRINT” ks Bi =o m2 mao maoeomoeomouamwnems 
=o -« «» m» « GAME . OVER": PRINT” E83 G23 [eo G2) CF fo fey i 
ts] 2 

PRINT" . = = = -=— = mo =» m m « a YOUR «2 SCORE o« W 
AS m2 m « "3SC 

END 

IF TE >99THENTE=99: E=99 

IF TEC STHENTE=9 

I=INT(TE/1G) ! JBTE-19%1! POKE1937, 1+48: POKE1938, J+48 

RETURN 
FORI=1S5TOOSTEP-1:POKE5S3281, 1+56: POKE53289, I+5@:POKEVL, I: 
POKEW, 129: POKEA, 15 

POKEHI, 59: POKELW, 199: NEXT 

POKEW, 9: POKEA, 9: POKE53281, 9! POKES3289, 9: RETURN 

DATAGG, 126, 255, 255, 255, 255, 126,68 

DATAG4, 224, 64 

DATAL, 129, 128, 3,8, 192, 6,9, 96,14, 9, 48, 27, 24, 128,49, 188, 204, 
96,255,134 

DATA192, 255, 3,129, 219, 129, 3, 251,192, 129, 231, 129,192, 219,35, 
96,255,6 

DATAG9, 189, 14GB, 27, 24, 216,14, G,112, 6,8, 96,3,9,192,1,129,128 
,8,195,9,9,192,9 

DATAL,@, 128, 3,9, 192, 6, 6G, 96, 12, 255, 48, 25, 255, 152,51, 255, 29 
4,193,255, 239 

DATAL99, 255, 227, 297, 255, 243, 255, 255, 255, 255, 255, 255, 255, 25 
5,255, 207, 255, 243 

DATAL99, 255, 227, 193, 255, 231,51, 255, 204, 25, 255, 152, 12, 255,4 
8,6,69,96 

DATAS,&, 192,1,8,128 
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CHECKSUM 


1=9 
19=4628 
15=S935 
29=4212 
25=2142 
3H=3711 
35=1765 
48=3793 
45=1761 
IG9=2199 
69=2191 
65=733 
7B=3352 
9B=2367 
95=1196 
19G=1719 
195=4639 
197=131 
119=2742 
115=2981 
129=2974 
125=3665 
127=1169 
138=2599 
135=2743 
199=4713 
1495=2688 
L5G=2793 
155=4534 
15725131 
169=2893 
165=4288 
167=3838 
179=2983 
173=3574 
175=1946 
189=36481 
183=3719 
185=3199 
19B=3926 
19S=335 
1935=S532 
299=329 
295=1112 
296=4232 
267=5721 
208=1766 
269=2571 
219=4677 


215=867 

229=1546 
225=793 

239=3635 
235=36988 
2499=3637 
245=3422 
259=2849 
255=2783 
269=3525 

496=35387 
493=S591 

4935=35128 
9419=6175 


915=1854 
429=1775 


422=2666 
$25=1265 
427=1397 
439=6941 
435=1326 
449=2979 
445=3726 
447=2926 
459=1629 
455=2133 
469=4161 
463=2329 
465=791 

479=2426 
489=1538 
482=1413 
484=1614 
4$86=1672 
488=1672 
499=961 

599=3928 
595=5387 
519=2357 
515=2359 
520=6484 
525=2868 
538=2976 
535=3725 
537=2626 
549=1629 
545=2133 
559=4149 
553=23298 
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S55=791 
369=52598 
365=1893 
699=1113 
692=4159 
6935=6293 
619=1688 
615=6289 
616=1885 
617=3933 
613=4676 
629=6279 
622=1883 
6249=3932 
626=49349 
7OB=2942 
7985=4116 
719=1226 
729=4589 
725=2482 
73B=1493 
735=2258 
799=1762 
739=S525 
899=3849 
819=2361 
829=129 
1999=1699 
1G@2=1198 
1995=3876 
1919=143 
1199=49776 
1115=1285 
1129=2177 
1GBGBB=1773 
19919=617 
1G9BG29=3842 
1B8G39=3639 
19949=43539 
199350=4191 
1G6969=4691 
19978=3747 
1GG38BG=949 


TOTAL= 384429 


Breakin 


PON en czasenan Ny. 08 S Suepaneencoaernt 
“ one Penns . OR 33 
BRS eee a SRR NSA SN ee : 

~ LM yitee s - 


aponisies surmeananen tes ca 
ee 


In this game you score 1 point for each brick you knock out of the wall. A 
bonus is awarded at the start of each game and every multiple of 100 
points gained refreshes the brick wall. You are given 9 balls for each 
game and you lose a ball each time it gets past your bat. The bat can be 
moved left and right with the ‘Z’ and ‘M’ keys. There are 3 different game 
versions and two bat sizes for your own selection. Selecting Bat 2 gives 
200 bonus points. Selecting Bat 3 gives 109 bonus points. 
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VARIABLES 


SC = Start address of screen 

CB = Colour offset value and base address for voice 1 sound 
GM = Game number 

BS = Batsize 

GS = Game score 

HS = Highscore 

FF = Voice 1 control register value 

BV = Vertical position of bat 

BH = Horizontal position of bat 

BY = Vertical position of ball 

BX = Horizontal position of ball 

BA = Screen position of ball 

DX = Horizontal movement value for ball 
DY = Vertical movement value for ball 
SW = Switch to allow screen refresh 


158 


19 


29 
49 


bs] 2] 
69 
7B 
89 
96 


1986 
1926 
19359 


1969 
1976 
1989 
1999 


1299 
1226 
1239 
1249S 
125¢ 
1269 


13599 
1529 
1538 
15429 


1559 


REM BREAKIN 


Define variables 


SC=1924: NB=9: CB=54272: FORI=9T024: POKECBtI,@!: NEXT: GOTO2908 
FORT=96T024: POKECBtI,@: NEXT: GOTOI9¢ 


Make noise when ball hits bat 


REM SOUND ROUTINE 
POKECB+24, 15: POKECB+4, 6: POKECB+6, 222 
POKECB+4, FF: POKECB+t1, 18: POKECB,9 
FORT=1TO5S: NEXT 
POKECB, @: POKECBt!i, 6: RETURN 


Move the ball and the bat around the screen. 


REM MOVE BAT 

A=PEEK (197) : IFA=464THEN1229 

PRINTLEFTS (DNS, BV) RIGHTS (DNS, BH) ; :FORI=1TOBS:PRINT" . "3: 
NEXT 

BH=BH+t ( (A=12) - (A=36) ) ¥2 

IF BH< 8THENBH=8 

IFBH>38-BSTHENBH=38-BS 

PRINTLEFTS (DNS, BV) RIGHTS (DNS, BH) ;:FORI=1TOBS:PRINT" gg ™”" 
3 = NEXT: 

REM CHECK BOUNDARY HIT 

BX=BX+DX: BY=BY+DY: FF=21 

IFBX< 9THENDX=-DX: GOSUBS@: GOTO152¢ 

IF BX >S6THENDX=-DX: GOSUB59 : GOTO1529 

IFBY< 1THENBY=1: DY=-DY: GOSUB59: GOTO1529 

IFBY >23THENBY=23: DY=-DY: GOSUBS59 


Test if ball hit brick or bat change the ball direction 


REM CHECK BAT/BRCK HIT & PRINT BALL 
POKEBA, 32: BA=SC+BY*¥49+BX 

IFPEEK (BA) =129THENBA=B1 : DY=-DY: FF=133: GOSUB5@: GOTO1999 
IFPEEK (BA) =267THENDY=-DY: FF=35: GOSUBS5@9: GS=GS+1: PRINT" BJ 
om ty "Gs 

POKEBA, 81: POKEBA+tCB, & 
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Check if player missed the ball and see whether last game. 


1569 REM CHECK FOR MISSED BALL 

1570 IFGM=1ANDBY >22ANDDY=- 1 THENNB=NB-1: PRINT" 2 i oe 
2 i ts m "NB 

1589 IFGM<>1LANDBY=12THENNB=NB-1:PRINT" §3 G83 G83 Gel G2) Geo Ce) [e 
CJ 2] m "NB 

1599 IFNB<1THENSS99 

1699 IFINT(GS/199)-(GS/199)< >OTHENL999 

1619 ONGMGOSUB2659,2799,2899 


Print the title page, input the difficulty level and bat size. 


2996 REM TITLE SCREEN 
2929 POKE5S3281,3:POKE5S3289,3: PRINT" bs C82 [3 2 El mw mo om 
J 


a _ _ en _ ed = Cad An a a, a za 


2936 FORT=1TO199: NEXT 


29499 PRINT’ & 99 9 9 © 9 Sa w2 2a ew wo we eel lee 
ee a a” a es eee eo&He" 

2956 FORT=1TO199: NEXT 

2966 PRINT" Bs [83 Ge) fe) G23 G22 [el a a a a aa a a aa. 
ana ae a a aowe8eaoieesea.saA @ 7 

2976 FORT=1TO01969: NEXT 

2989 PRINT’ i W@W 3 (93 Gf i 2 Fi 2 a2 wm wo wo wo we ow 
anoeaeeHeoqoi.eiooaosaees#e#useawoqeane_eeaoaouaietkt ese x 

2999 FORT=1TO169: NEXT 

2199 PRINT" be fe) G (2) (ey t23 ©) fF te) Ga Po ee a a es 
& tt 

2119 FORT=1TO19698: NEXT 

2129 PRINT’ Ge W@W 9 2 0 9 i FE wa wm we we ow ew 
ea Gc oes" 

2138 FORT=1TO199: NEXT 

2149 PRINT" Be (9 [9 (2 9 (3 (2 3 8 ) (2 ES aw wa aw mw ow 


~ 
e.&s. : 

2158 FORT=1TO29¢: NEXT: FF=35: GOSUBS9 

21696 PRINT" 4 [83 [el £8) (22 [92 [9] [92 [93 [9 ff ES aw me tm mt om 
ane a ea moa a sa Bao FH Oo He .weaeesveaowt © 
a Ge. oe" 

21768 FORT=1TO299: NEXT: FF=21: GOSUBS9 

2186 PRINT’ ee 8 ©) (9 2 (9 (2 3 3 i 3 ES aw wm we mw oo 
ao mo mo oo» #2 a2 Ba FR HF Oosea.wwe®@®a. 
ce. Fes" 

2198 FORT=1TO299: NEXT: FF=35: GOSUBSS 

2296 PRINT” Ra G22 [el O23 €03 Gey co) G2) fs3 3 2 E> 
cSe.w.ithe" 

2218 FORT=1TO299: NEXT: FF=21: GOSUBS9 

2220 PRINT’ & 9 2 2 9 2 ty 2 2 i ES aw we rt nr 
oa mo ao ao ao wo a2 Bao FAR. FAL BALAN O.. EG 
e . EJ os” 
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2230 
2249 


2258 
22669 


2276 
2289 


2290 
2308 


2400 


2416 


24928 
24939 
2446 
24956 
2469 


24979 
24988 
249496 
2599 


2516 
2576 


2589 


2599 


26998 


2619 


2629 


2630 
26499 


FORT=1 T0299: NEXT: FF=35: GOSUB5g 

PRINT" Bo fey fed G2) £2) £8) fo) fe] ft) (92 83 ES a mt lt ltl 
._. Fe" 

FORT=1TO2@6: NEXT: FF=21: GOSUBS59 

PRINT” hic Ged [el £83 [83 [ey [82 £9) [92 £292 93 ES aw we we tm 
mao m2 wo» wo» 2» 2 Bao FER ow FEE wp MBA AK. EI 
._ Fe" 

FORT=1TO299: NEXT: FF=35: GOSUBS@ 

PRINT" Bs Ged Es) £93 fel fel Ee} £2] [82 £93 [93 ES 2 mw wm om om 
~ -—- m— mm» mo» wo» 2 Bao FER wp FEE wp MWAn HK. GI 
- GN" 

FORT=1TO296: NEXT: FF=21:PRINT" fe] [ey ” 

GOSUBS9 


Print difficulty level, bat size and other player information. 


PRINT” m@ ow mlm lm lu! hla) ia :«CLSS SELECT 4 GAME . NUMBER 
(1-3) "SFORT=1TO96: NEXT 

PRINT" CF @ w2 m2 - » mm» m» om» a SELECT » GAME . NUMBER 
(1-3) "53 :FORT=1TO99: NEXT 

GETGMS: IFGMS< "1" THENPRINT: PRINT" £3 "3: GOTO2396 

IFGMS>"3" THENPRINT: PRINT” "5: GOTO2399 

GM=VAL (GMS) SPRINT" . "GM: PRINT: FF=35 

GOSUBS¢ 

PRINT" @ ow tom lm lm lla liamia:sCOULS| SELECT & BAT 2 SIZE 
(2-3) "SFORT=1T099: NEXT ; 
PRINT’ CF @ w2 m2 wo me =m mm» mom a a SELECT ow BAT «2 SIZE 
(2-3) ° 3 SFORT=1TO9G: NEXT 

GETBSS: IFBSS< "2" THENPRINT: PRINT" "3 3GOTO0245¢9 

IFBSS>"S" THENPRINT: PRINT” EJ "3 :GOTO2459 

BS=VAL (BSS) SPRINT" . "BS 

NB=9 : GS=199%(4-BS) 

FORT=1 T0596: NEXT 


Print breakin court 


FORI=1LTOZSIPRINT" 2 -»a ma mam ao & & id ow @ a a ow 


> > a b>» >», >, LOTT le 


Cen 
am ": NEXT 
_ 
_ 


sb 


>» >» 4b 


PRINT” m@ 


_ 


s 
a za 


bbb>D 


=z 
By 
Ee, 
_ 


a 
en 
bbD> 
b> 


_, yy 
>, > >» 


=z a, i ey sh | > | . 
PRINT" B3 SCORE": PRINTGS: PRINT" [93 HIGH": PRINT"SCORE":PRINTH 
S:PRINT” {#3 BALLS” 
PRINT"°LEFT": PRINTNB: PRINT" [8] GAME" : PRINT "NUMBER": >PRINTGM 


PRINT" §8] BAT" PRINT"SIZE":PRINTBS 
ONGMGOTO02659 , 2799, 2899 
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2659 
2655 
2669 


2665 
2666 
2676 
2686 
2798 
2719 
272G 


27308 
2746 


2745 
27496 
27358 
2768 
2899 
2819 
2829 


2839 


2859 


2869 


2865 
2866 
2870 
2889 


IBID 
3GB2D 


SB3B 
9950 
5969 
5978 
9939 


Set up screens for game 1, game 2 and game 3. 


REM GAME 1 

PRINT? &3 3] @&] &s ” 

FORJ=1TO4: PRINT” BE BI BA BE BS BI 
Prererrrrereereee 
Porm © Next 
IFGS>STHENGS=GS+tl 

IFSW>STHEN1L OOS 

SW=1!: BV=21: BH=17: BY=15: BX=18: BA=SC+BYX49+BX: DX=-1:DY=-1 
GOTO1959 

REM GAME2 

PRINT” E39 [2 fe] 3" 


FORJ=1TOS:PRINT’ BE BEBE BP Be ee Oo 
Prererrrrrrerrrerereerereereee 
mre ee next 

PRINT” (3 [ey G2] G23 f23 (ed Ge) (23 2) (23) (2 oa" 
FORJ=1TOS:PRINT BBR 
reee Prererererrrrerereee 


re 
rrererrp fF "Next 
IFGS >@THENGS=GS+1 
IFSW>STHENLESS 
SW=1:BV=13! BH=29: BY=19: BX=21: BA=SC+BY¥49+BX: DX=1: DY=-1 
GOTO195¢9 
REM GAMES 
PRINT” &3 & ts] " 
FORI=9TOS:PRINT" BS BS BE ©S @S BE BA BE BS BA ";:FORI=9-I1 
TOLSTEP-1:PRINT" Leg ES FT 732 NEXT 
PRINTSPC (I1¥2+8) 3 SFORJ=9-ITOLSTEP-1:PRINT" Ff" "3: NEXT:PRINT: 
NEXT! PRINT 
FORI=9TOS:PRINT" BE BE BE BS BS BS BE OBS BS BE "SS FORIJ=1TOI 
+41:PRINT" bg GE FO "5 :NEXT 
PRINTSPC ( ( (8-1)¥2) +8) 3 SFORJ=1TOI+1:PRINT" [7 "33 NEXT:PRINT: 
NEXT: PRINT" By” 
IFGS>S@THENGS=GS+1 
IFSW>STHENI SBS 
SW=1!: BV=13! BH=16: BY=9: BX=24: BA=SC+BY*¥49+BX: DX=1:DY=-1 
GOTO1959 


Ask player if he wants another. 


REM END GAME 

PRINT” B93 G83 (ey G83 O83 G23 
2S Bh BS PE Ps PB Bl 
GETAS 

IFAS="N" THENPRINT" Ba "SEND 
IFAS< >" Y" THENSSSS 

IF GS >HSTHENHS=GS 

SW=9: GOTO228G 


fe] fe] [23 C2) BS BS Bi 
ANOTHER . GAME (Y/N) * 


£ 
£ 
+E 
E 
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CHECKSUM 


5-9 
19=3799 
2G=4262 
49=2269 
50=9 
69=2318 
7B=1977 
89=868 
99=1284 

1999=9 

1929=1658 
1959=3219 
1969=2198 
1979=1979 
1989=1914 
1999=3694 
1299=9 
1229=2291 
1239=2388 
1249=2427 
1259=2996 
1269=2332 
1599=¢ 
1529=2998 
1539=4993 
1549=4413 
1559=1254 
15469=9 
1579=4978 
1589=3397 
1599=913 
1699=2512 
1619=1297 
2999=9 
282G=2899 
20939=975 
2949=2337 
2959=975 
2869=2495 
287B=975 
2989=3937 
2999=975 
2199=3147 
2119=975 
2129=3941 
2138=975 
2149=4973 
2159=1821 
2169=3945 
2176=1817 
2189=3816 


2199=1821 
2299=3676 
2219=1817 
2228=3532 
2239=1821 
2299=3396 
2259=1817 
2269=3252 
22798=1821 
2289=3119 
2299=1853 
23989-2497 
2499=3625 
2419=3827 
249 29=2653 
24939=2178 
249949=2672 
24598=247 
24969=3391 
2479=3593 
249489=2674 
2499=2176 
2599=1325 
2519=1644 
2579=975 
2589=2593 
2599=3324 
2699=2264 
2619=3959 
2629=2957 
2639=1488 
2649=1449 
2659=9 
2655=317 
2669=84937 
2665=1448 
2666-936 
26798=35699 
2689=579 
2799=9 
2719=317 
2726-8438 
2739=534 
274949=8438 
2745=1448 
274946=936 
27359=5599 
276G=579 
2399=8 
2819=286 
2829=3892 
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2839=3941 
2859=3397 
2869=4143 
2865=1448 
2866=936 
2879=5463 
2889=579 
IIGI=G 
IG2B=2726 
SIG3B=267 
SG5G9=1359 
IH69=1285 
99768=1328 
IGSG=1972 


TOTAL= 257594 


Tanc 


ns) 


a 
x 
i 
a 
: 
& 


This game is a two player tank game. You need two joysticks to play. 
Each player has 3 tanks. If a tank is hit 3 times it is destroyed. Avoid the 
mud because it slows down your progress. 
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19 
29 
3d 
49 
ba 
69 


65 
66 


67 


68 


69 


78 
cx 
72 
735 
76 
77 
73 
89 
9D 


91 
92 
93 
94 


95 


96 


97 


REM TANC 


REM INITIALIZE 


Build four versions of tank and set screen colours. 


POKES3289, 2: POKES4, 69: POKES2, 69: CLR:SPRINT" By " 
FORI=15369T015369+256: READA: POKEI, A: NEXTI 
FORI=15616T015689: POKEI, 9: NEXTI 
POKE156497, 24: SH=244: POKE2942, SH: POKE2943, SH: L1=3:P1=L1i:L2= 


Li:Hi=Li1 


POKES3269, 3: SE=249: POKES3248, 27: POKES32949, 217: POKE2949, SE: 


AB=1:AC=1 


POKES3288, 1: SP=243: POKES3259, 251 5 POKES3251, 53: POKE2941, SP 


PRINT" Lad 


FORI=9TO21:PRINT® B 


ee 


an «a2 a 2 oe elUeelUeelelelelleeleelleeleeleke lek l ell 


@ °:NEXTI 
PRINT’ ig = = 
EE FF EF ww 
GOSUB9S 
GOSUB299 


IFAB=@THENGOSUBS39 


Print maze on screen and main logic loop. 


IFAC=9THENGOSUB1939 


GOSUB499 


SS=PEEK (53278) : SB=PEEK (53279) 
IF (SSANDG) =6THEN2599 
IF (SSAND9) =9THEN2999 


GOTO726 
PRINT" 
BS BS 
3 

PRINT" 
BS BE 
PRINT?" 
BE BI 
PRINT? 
BE BE 
PRINT” 


gv. 


E> EG+ BEGGEEEEEEE EG 
E> EEGGEEEREEECEEE EEF 
E> EEEEEEEEEEEEEE EE 


E> Be 


= 
Ree! 


BEEEGEEEEEE EE 
>> EEEGEEEEEE EE 


>> EEEEEEEEEE EE 


> 
b 


BS BE BS BE ORS 
BELIVES: "3;P1 
BS BE BS BS OR 
BE HITS: “3Hi 
BS Bi BS BE OBS 
BEPLAYER . 2°35 
BE Bi BS Bs OB 
BELIVES: ";Li 
BS BS BS BS OR 
ME HITS: "3;L2 
a 


a, 
BE 


98 


196 


191 


192 


193 


194 


198 


199 


119 


lil 


189 
181 
199 


20695 
283 
295 
219 
2268 
238 
235 
249 
241 
2492 
2494 
295 
246 
248 
2499 
3BD 
319 


>> Mog 
D> 

> 
’ 
> 
> e 
b> 
a 


a) 
>@ > 
: 


FEE EPEEe 
> f 
>> 


Pe ff-)> Seer 
FE FE 
Pe PE @->8 
EE ff fF 

+f FE F&F 


EE E& E& && @E &> 


hb DP 
pb Db? 
D> of 
D> oF 
pr DD 
>2 
> 

> 


>> £> 
fe 
a) 
> 


bb=<> bf 


b> 


bi 
»> 
>> 
»> 
>= > 


> > 
> 
@» 
f> 


b> 
b> 
>> 
b> 
E> 
E> 
ef» 


> £ 
> & 


_»_ 
> a 


E 

E 
E> E&> EGER EE Ee PEPE PEE FEE 
EGEE> GEEEE EE E> PPC EPEEEE 
EEEGCEEE> FREGE> E> CPCPPEPPEFE 


P> GREE) SRPE- > o> e- Pee 


“ppd 


SS BI 
POKES3287, 1: POKES3288,9 

A=PEEK (53278) : A=PEEK (53279) :SS=9: SB=9 
RETURN 


E> E> 8 


22> > 


Input player one and player two joystick movement, move 


tank. 


REM JOYSTICK CONTROL 

IF (SBAND1) =1 THENS1=1: GOTO219 

Si=4 

IFNOTPEEK (56329) AND 1 THENSE=249: GOTO242 

IFNOTPEEK (56329) AND2ZTHENSE=24 1 : GOTO244 

IFNOTPEEK (56329) AND4THENSE=243: GOTO248 

TFNOTPEEK (56329) ANDSTHENSE=242: GOTO246 
IFNOTPEEK (56329) ANDI 6THENGOTO799 

RETURN 

TFPEEK (53249) >49THENPOKES3249, PEEK (53249) -S1: GOTO39¢ 
IFPEEK (53249) <219THENPOKES3249, PEEK (53249) +S1: GOTO399 
GOTO242 

IFPEEK (53248) < 2S3THENPOKES3248, PEEK (53248) +S1: GOTO399 
IFPEEK (53248) >24THENPOKES3248, PEEK (53248) -S1: GOTO399 
GOTO0246 

POKE2946, SE 

IFNOTPEEK (56329) ANDLGTHENGOTO799 
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359 
496 
492 
495 
419 
429 
43g 
435 
446 
441 
442 
444 
445 
446 
448 
449 
695 
618 
658 


79D 
785 
716 
726 
738 
746 
741 
742 
743 
744 
74S 
746 
7497 
748 
7358 
769 
776 
789 
79D 
899 
829 
835 
849 
85d 
869 
879 
89D 


RETURN 

REM JOYSTICK CONTROL PL2 

IF (SBAND2) =2THENS2=1: GOTO419 

$2=4 

IFNOTPEEK (56321) AND1 THENSP=24@: GOTO0442 

IFNOTPEEK (56321) AND2THENSP=24 1 : GOTO0444 

IFNOTPEEK (56321) AND4THENSP=243: GOTO448 

IFNOTPEEK (56321) ANDSTHENSP=242: GOTO446 
IFNOTPEEK (56321) ANDIG6THEN9ISS 

RETURN 

IFPEEK (53251) >49THENPOKES3251, PEEK (53251) -S2: GOTO69@ 
IFPEEK (53251) <219THENPOKE5S3251, PEEK (53251) +S2: GOTO699 
GOTO442 

IFPEEK (53259) < 253 THENPOKE5S325@, PEEK (53258) +S2: GOTO699 
IFPEEK (53259) >24THENPOKES3259, PEEK (53250) -S2: GOTO699 
GOTO446 | 
POKE2941,5P 

IFNOTPEEK (56321) ANDI6THENSSS 

RETURN 


Player one has fired gun, keep the shell moving, check for 


bang. 


IFAB=9THENSS9 

AB=9:SC=5: SK=SE 

POKES3252, PEEK (53248) : POKES3253, PEEK (53249) 
IFSE=249THEN743 

IFSE=241 THEN?745 

IFSE=242THEN747 

IFPEEK (53252) < 26THENS79 

GOTO75¢9 

IFPEEK (53253) < 20THENS7@ 

GOTO769 

IFPEEK (53253) >235THEN8S79 

GOTO077¢6 

IFPEEK (53252) >235THENS7S 

GOTO789 
POKES3252, PEEK (53252) -19: GOTO799 
POKES53253, PEEK (53253) -19: GOTO799 
POKE53253, PEEK (53253) +19: GOTO7996 
POKES3252, PEEK (53252) +19 
IFSC=STHENPOKES3269, PEEK (53269) OR4 
SC=SC-1: IFSC=9THENS79 

RETURN 

IFSK=249THEN743 

IFSK=241 THEN745 

IFSK=242THEN747 

IFSK=243THEN741 

POKE53269, PEEK (53269) AND251:AB=1 — 
RETURN 
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Player two has fired gun, move shell and check for bang. 


99S IFAC=9THEN1939 

98S AC=9: SD=5: SL=SP 

919 POKES3254, PEEK (53259) : POKES3255, PEEK (53251) 
925 IFSP=249THEN9S43 

93D IFSP=241THEN945 

949 IFSP=242THEN947 

941 IFPEEK (353254) < 26THEN1 979 

942 GOTO9S9 

943 IFPEEK (53255) < 26THEN1979 

944 GOTO969 

945 IFPEEK (53255) >235THEN1979 

946 GOTO979 

947 IFPEEK (53254) >235THEN1979 

948 GOTO939 

958 POKES3254, PEEK (53254) -19: GOTO99¢ 
96D POKES3255, PEEK (53255) -19: GOTO999 
978 POKES3255, PEEK (53255) +19: GOTO999 
9389 POKES3254, PEEK (53254) +19 

999 IFSD=STHENPOKES3269, PEEK (53269) ORS 
19969 SD=SD-1: IFSD=9THEN1979 

1928 RETURN 

1939 IFSL=249THEN94S3 

1949 IFSL=241THEN94S 

195G IFSL=242THEN9S47 

1969 IFSL=243THENS41 

1976 POKES32649, PEEK (53269) AND247: AC=1 
19689 RETURN 


Print the scores; end the game and prompt for another. 


2966 REMPLAYERTWO 
29665 GOSUB197¢9 
29160 L2=L2-1 


29625 PRINT” Ba Es} [22 8] (2) [83 [9] BE BS BS BS OB BE OB OB OB 
BE BE BE BE BE BP BS Bs OB Be BB BB OB OR 
BI BS BS BE Be OB OB OB OB "511 

2936 PRINT" BE BE BS BE BS BE BB) BS BS OB BB Om Bs OB eB 
Bh BE BS BE BE 2 OB BB eB Be Be OB 
BE "s3L2 


2946 IFL2=STHENL2=4:Li=Li-1 

2958 IFL1=S8THEN3S99e 

293535 -SS=PEEK (53278) : SB=PEEK (53279) 

2969 GOTO7S 

2598 REMPLAYERONE 

2595 GOSUB879 

2519 Hi=Hi-1 

2526 PRINT" BJ 03) BE Bl BS BE BE BS BE BS Bs OB OB OB BoB OB 
Bi BE BS Bs Bs BS OB OB BS BB OO OBS 

Lt | 


169 


23539 


2549 
2559 
2555 
2569 
3GDD 
3G1D 
3109 
3159 
3290 
3258 
3388 
33198 
S315 
3329 


5OGBS 
3818 


59925 
IB3D 
395D 
39469 
387D 
I98D 
5199 
3119 
3129 
9139 
9158 
9169 
31798 


3189 


| FOSS 


PRINT" BS BS BS BS Bi BE BS Ri BE 

Bi BS BS OP OP PP Be OB 
"SHI 

IFHL=9THENH1=4:P1=P1-1 

IFPL1=STHENS 199 

SS=PEEK (53278) : SB=PEEK (53279) 

GOTO07G 

PRINT" ka id ©) BS BE BS BS BE PLAYER . ONE & "5 

GOTO3159 

PRINT" ha ta BE BB! BE BE BS BEPLAYER . TWO ow "3 

POKES3269 , 9 

PRINT" i WON. " 

PRINT 

PRINT"ANOTHER . GAME. (Y/N)” 

IFPEEK (197) =25THENRUN 

IFPEEK (197) < 39 THENS3S19 

PRINT” 4 °: STOP 


Data for the up, down, left and right versions of tank. 


REM UP TANC 

DATAG, 8,9, 9,G,5,8,65,5,8,24,5,7, 24, 224, 7,24, 224,75 24, 224, 7 
» 24,224 

DATA7, 255, 224, 7, 255, 224, 7, 255, 224, 7, 255, 224, 7, 255, 224, 7,25 
5,224 

DATA7, BD, 224, 7,G, 224, 7,8, 224, 7,8, 224,8,8,8,8,8,5,9,5,5,0 
REM DOWN TANC 

DATA G,9,8,5,5,8,8,8,B, 7B, 224, 7,8, 224, 74D, 224, 7yBy 224,752 
55, 224,7,255, 224 

DATA7, 255, 224, 7, 255, 224, 7, 255, 224, 75 255, 2249, 75 24, 224,75 24, 
224,7,24,224 

DATA7, 24, 224, 9, 24,5,5,69,9,59,5,9,0,8,98,8 

REM RIGHT TANC 
DATAD,&,9,9,5,8,9,8,9,9,9,9,3, 255, 224, 3, 255, 224,3, 255, 224, 
6,62,9,8,62,9 

DATAG, 62,8, 8, 63, 248, 8, 63, 248,5,62,8,4,62,9,8,62,9,3,255, 22 
4,3,255, 224 

DATAS, 255, 224,9,0,08,9,5,5,9,5,5,5 

REMLEFT TANC 
DATAG,&,9,8,9,9,9,9,9,9,9,9,3, 255, 224, 3, 255, 224, 3, 255, 224, 
G,62,9,8,62,9 

DATAS, 62,9, 15, 254,98, 15, 254, 9,8, 62,9,G,62,5,8,62,9, 3,255, 22 
4,3,255, 224 

DATAS, 255, 224,9,9,9,8,9,9,8,9,9,8,@ 
PRINTPEEK (197) : GOTO99GG 
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CHECKSUM 


=9 
19=9 
29=2242 
SH=2529 
49=1864 
59=4897 
69=4342 
635=3313 
66=5922 
67=3191 
68=6143 
69=251 
7B=294 
7L=991 
72=19850 
735=298 
76=1954 
77=1294 
78=1296 
89=476 
9B=2191 
91=21498 
92=2924 
93=2124 
94=2136 
95=2928 
96=2566 
97=2598 
98=2377 
199=2367 
191=1965 
192=1945 
193=2331 
194=2331 
198=2343 
1G9=2319 
119=2343 
111=26459 
189=1172 
181=2796 
19G=1493 
29G=G 
293=2951 
295=365 
219=24928 
229=2431 
239=2425 
2355=2431 
249=1885 


291=143 
242=32762 
294=3321 
2495=527 
296=332G 
2498=3264 
2499=3527 
39G=3567 
319=1885 
359=143 
499=9 
492=2937 
495=364 
919=2444 


429=2447 
439=2441 


4$35=24947 
4499=1562 
991=143 
4492=32648 
$44=3313 
9$95=S531 
94496=3312 
4$498=3262 
4499=531 
699=578 
619=1582 
659=143 
799=854 
7BS=1423 
719=2248 
728=998 
73E=19B2 
7949=1862 
7491=1346 
74942=538 
793=1347 
74949=531 
795=14995 
7496=532 
747=1494 
7498=537 
739=1985 
769=1987 
778=1986 
789=1347 
79G=2618 
896G=1673 
829=143 
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839=1962 
849=16996 
859=1896 
869=1992 
879=1897 
$99=143 
9GH=9B3 
995=1437 
919=2248 
Y2G=19884 
93GB=1998 
949=1998 
941=14995 
942=534 
943=1486 
944=535 
945=14956 
946=536 
947=1455 
948=S541 
9SI=1993 
P69=1995 
P7B=1994 
989=1347 
99B=26822 
1999-1727 
1929=143 
1939=1996 
1949=1994 
1959=1994 
1G69=19986 
1979=1991 
1989=143 
29O99=9 
29G65=351 
29 19=667 
2929=2284 
2939=1824 
29429=1898 
295G=896 
2955=19354 
2869=476 
2599=9 
2595=396 
235 19=662 
23529=2913 
2539=1826 
2549=1835 
2558=991 


2555-1954 
2568=476 
3999=1530 
3919=58o 
319G=1523 
3159=532 
3299=539 
3259=153 
339G=1564 
3319=1217 
3315=1494 


3329=S585 
IIBG=B 
391G=3491 
392B=34494 
SG3B=2916 
IGIB=G 
3946B=4383 
5997G=4199 
SH8G=2898 
3198=9 
9119=4134 
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TOTAL= 


3129=3944 
9139=1751 
3159=9 

9169=494134 
J17GB=3928 
3189=1862 
9GGG=1283 


2849764 


Machine Language Sprite Management 


This short program is a machine language routine that controls all sprite 
movements, in a manner that is totally independent of BASIC! 


For the technically minded, the routine is interrupt-driven — that is, 
every 5@th of a second the machine language program looks to see if 
anything needs to be done to each sprite. 


The routine is so fast that it takes up virtually no time and thus has almost 
no effect on the speed of your BASIC program. 


ABOUT SPRITES 


Sprites are shapes that can be moved anywhere on the screen by 
specifying their position. The Commodore 64 has facility for up to 8 
sprites to be displayed at any one time, and these are numbered Q-7. Let 
us Call this sprite number, SP. The following properties must be defined 
for each sprite, as a minimum. 


Sprite enable 


This determines whether a particular sprite is to be ON (i.e. displayed) or 
OFF (not displayed). 
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The information about this is held in a single byte (the variable called 
ENSP in this program). This byte is at location 53269, and the 
information is as follows: 


Sprite 7 Sprite () 
with each ‘cell’ holding a1 ora @. 
To turn ON a sprite that is off: 
POKE ENSP, PEEK(ENSP) + 2 f SP 
To turn OFF a sprite that is on: 
POKE ENSP, PEEK(ENSP) — 2 ft SP 


Sprite colour 

Each sprite can be any of the Commodore's 16 colours, and this 
information is held in a table of 8 bytes starting at location 53287 
(variable COLSP). To make the sprite white, say (colour 1) then: 


POKE COLSP + SP, 1 


Define its position 

The screen position range for each sprite is from (24, 52) to (344, 259), 
where the X-position goes from 24 at left to 344 at right and the Y- 
position goes from 59 at the top to 259 at the bottom. 


(There are values possible outside this range, but it means that the 
sprites are not visible — e.g. a sprite at (@, Q) is too high for you to see.) 


The position of each sprite is held in a table starting at 53248 which is set 
out as follows: 


X-position sprite @ 

Y-position sprite @ 

X-position sprite 1 

Y-position sprite 1 
.. etc. 


In order to set a sprite’s position: 
POKE XSP + 2*SP,...: POKE YSP +2*SP,... 


with the appropriate values inserted into the line. 
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You will probably be aware that the highest number that can be POKEd 
is 255, and so you cannot POKE X-values above this into this table. 


The Commodore 64 has a special byte at 53264 (called HIGH in this 
program) which indicates if any sprite’s X-position is greater than 255. 


This byte is similar to the sprite enable byte: 


PPPEPEEE 
Z \ 


Sprite 7 sprite Q 


lf any of the ‘bits’ in this byte are on, it indicates that 256 needs to be 
added to the X-value for that sprite in the X-position table. 


For example, to set an X-position of 32@ (256 + 64) then do: 
POKE XP + 2* SP, 64 : POKE HIGH, PEEK (HIGH) + 2 ¢ SP 


Define its shape 

Each sprite has to have a shape defined for it, and elsewhere in this 
book we give you a program that enables you to design sprite shapes 
easily (see SPRITE CREATE). 


The Commodore 64 has a table at the end of the screen that tells it where 
to find the shape data. NOTE that each sprite requires 63 bytes to define 
it, and that for other reasons the Commodore 64 requires that the shape 
data be: 


1. inthe same 16K block as the screen. 
2. start on a 64 byte boundary. 


There are only 256 such 64K areas, and so we can specify where to find 
the shape data in a simple byte. 


The Commodore 64 screen is usually in the first 16K of memory from 
1924 to 2047 and the shape data pointers are from 204@ onwards. 


To tell the Commodore 64 that the shape data for a particular sprite is in 
the 13th 64K block (memory locations 832 to 895): 


POKE 2049 + SP, 13 


In the standard Commodore 64, running a BASIC program, it is safe to 
place sprite shape data in the following 64K blocks: 


13, 14, 15, 250, 251, 252, 253, 254, 255. 
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About this program 

The power of Machine Language Sprite Management is that it enables 
you to control each sprite in a very simple manner once you have 
defined it, as shown above. 


For each sprite, three variables are defined: 


XINC — its horizontal speed 
YINC — its vertical speed 
DIR — the directions it is allowed to go in. 


XINC and YINC are both in tables, and to set a sprite’s movement at the 
slowest non-zero speed: 


POKE XINC + SP, 1: POKE YINC + SP, 1 


The DIR variable allows you to choose either no allowed movement, 
movement in only one direction (such as right) or movement in diagonal 
directions (by allowing both up and right movement, for example). 


UP = 1 
Q@ = no move 


LEFT = 4 RIGHT = 8 


DOWN = 2 


To set movement to right and up (1 + 8 = 9): 
POKE DIR + SP, 9 


Using this program 
The program lines listed can be added to any of your own programs, 
and the Sprite Management Program is called by using GOSUB 8009. 


NOTE that once this has been set up, and sprites enabled, the sprites 
will continue even when the program has finished running! It can be 
quite amusing to see sprites on the screen when editing a program. 


To stop the sprites being shown, you can dis-enable all sprites by POKE 


53269, @. (This will not stop the routine being called each interrupt.) To 
stop the routine, press RUN STOP/RESTORE. 
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8989 XINC=49399: YINC=49317: DIR=493G1 : ATAB=49293: OTAB=49285 

8619 PRI=53275: SCLN=53278: MULT=53276: BAKCLN=53279 ! ENSP=53269:CO 
LSP=53287 

8915 XSP=53248: YSP=53249: HIGH=53264 

8929 FORI=9T0148: READA: POKE49152+1, A: NEXT 

8938 FORI=9T07:POKEDIR+I,@:POKEXINC+I1, 9: POKEYINC+1, @: NEXT 

8646 POKES6333, 127: POKE788, G: POKE789, 192! POKE56333, 129 

8959 RETURN 

9996 DATA162,7, 138, 19, 168, 24, 189,149 

9919 DATA192,133, 251, 7G, 251, 144, 14,185 

9929 DATAL,298,261,51,144,7,56, 253 

9930 DATA165,192, 153, 1,298, 70,251,144 

9949 DATAI4,185, 1, 208, 261,226, 176,7 

9959 DATAZ4, 125,165,192, 153, 1, 208,78 

99469 DATAZS1, 144, 36,173, 16, 208,61,133 

9979 DATA192, 298,7,185,9, 208, 291,25 

9989 DATA144, 21, 185,G, 208,56, 253, 157 

9999 DATA192,153,9,2G98,176,9,173,16 

9195 DATA298,61,141,192, 141, 16, 298, 79 

9119 DATAZS51,144,36, 185, 9, 208, 261,44 

9128 DATA1L44, 11,173, 16, 208, 61, 133, 192 

9139 DATA2G8,21,185,G, 298, 24, 125, 157 

9149 DATA1I92, 153, 9, 208, 144,9,173,16 

9159 DATA2GS,29,133,192,141, 16, 298, 292 

9169 DATA16, 128, 76,49, 234,1,2,4 

9178 DATAS, 16,32, 64, 128, 254, 253, 251 

9188 DATA247, 239, 223,191,127 


CHECKSUM 


8999=4375 _ Y1S58=1769 
8919=6935 9169=1346 


8915=2443 917G=1599 
8929=2186 9189=1165 
8939G=3646 

8949=23588 TOTAL= 51833 
8959G=143 

99GB=1646 

9O1B=1773 

9B2G=13527 

9D3G=17681 

9949=1574 

9959=1642 

9969=1726 

997B=1571 

9D8G=16309 

9999=1586 

91B9G=1793 

9119=1651 

9129=1688 

9139=1639 

9149=1584 
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G REM EXAMPLE PROGRAM A 


Call Sprite Management routine. 


196 GOSUB 8999 


Choose sprite #0, make it white. 


119 SP=@ :POKE ENSP, 2*SP 
129 POKE COLSP+tSP, 1 


Define sprite’s position. 


132 POKE XSP+2¥SP,179 :POKE YSP+2X*SP, 149 


Make the shape a square blob 


142 FOR I=8 TO 63 :POKE 832+1,255 :NEXT I 


Tell the C64 where the shape data is. 


159 POKE 2649+SP,13 


Wait until RUN STOP is pressed. 


19966 GOTO 1999 


CHECKSUM 


G=B 
199=355 
119=1414 
129=1986 
139=2538 
149=1866 
159=869 

1999=579 


TOTAL= 8627 


178 


CHECKSUM 


g REM EXAMPLE PROGRAM B.1 B=9 
196  GOSUB sgg¢o 199=355 
119 SP=@ :POKE ENSP,2°SP 119=1414 
126 POKE COLSP+SP,1 12G=1886 
139 POKE XSP+2%SP,170 :POKE YSP+2*SP, 1496 139=2538 
149 FOR I=@ TO 63 :POKE 832+1,255 :NEXT I 149=18664 
158 POKE 2949+SP,13 159=869 
266  POKE XINC+SP,1:POKE YINC+SP,1 2BB=1936 
218 POKE DIR+SP,8 21G=832 
226 IF PEEK(HIGH)=@ THEN 229 226=1327 
238 #POKE DIR+SP,4 23G=836 
249 IF PEEK(XSP+2%SP)>3@ THEN 249 249=1928 
259 GOTO 219 259=526 
1996 GOTO 1999 1998=579 
TOTAL= 16912 
CHECKSUM 
g REM EXAMPLE PROGRAM B.2 G=B 
196 GOSUB seg 19G=355 
119  SP=@ :POKE ENSP,2°SP 119=1414 
126  POKE COLSP+¢SP,1 126=1696 
130 POKE XSP+2%SP,17@ :POKE YSP+2%SP, 149 138=2538 
149 FOR I=@ TO 63 !POKE 832+1,255 :NEXT I 210 —1806 
159  POKE 2649+SP,13 159=869 
26G  POKE XINC+SP,2!:POKE YINC+SP,1 269=1935 
216  POKE DIR+SP,9 219=832 
226 FOR I = 1 TO 2068: NEXT I 229=1697 
238  POKE DIR+SP,6 2398=838 
249 FOR I = 1 TO 2999: NEXT I 24G=1997 
258 GOTO 216 259=526 
1996 GOTO 1996 1969=579 
TOTAL= 14952 
CHECKSUM 
g REM EXAMPLE PROGRAM B.3 B=G 
196  GOSUB sgg¢G 199=355 
116  SP=@ :POKE ENSP,2“SP 119=1414 
126 POKE COLSP+SP,1 129=1996 
139 POKE XSP+2¥SP,17@ :POKE YSP+2*SP, 149 139=2538 
149 FOR I=@ TO 63 !:POKE 832+1,255 :NEXT I 149=1866 
156 POKE 2949+SP,13 159=869 
296  POKE XINC+SP,1 :POKE YINC+SP, 1 29B=1936 
216  POKE DIR+SP,8 :FOR I=1 TO 19@@:NEXT 21G=1947 
226 POKE DIR+SP,2 :FOR I=1 TO 19@@:NEXT 22G=1949 
238  POKE DIR+SP,4 :FOR I=1 TO 1999:NEXT 238=1951 
249  POKE DIR+SP,1 :FOR I=1 TO 999:NEXT 24G8=1917 
258 GOTO 219 259=526 
1996 GOTO 1999 1988=579 
TOTAL= 18853 
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Example of using the 
Sprite Management Program 


Following the Sprite Management Program, you will find Example 
Program A. 


Type this in together with the Sprite Management Program, and RUN it. 
You will that find a large square sprite in the centre screen will be 
continuously displayed (because the program is in the infinite loop of 
line 10QQ). 


NOTE that if you hit the RUN STOP key the execution of the program 
stops, but the sprite is still there. 


Add afterwards any of the programs listed as Example Programs B. 


Each one will create a different movement pattern for the sprite, to give 
you familiarity with the capabilities of this program. 
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‘Sprite Create’ 
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The following program allows you to use the cursor keys to draw a sprite 
by editing DATA statements. Type RUN 1, then use the cursor keys to 
move around the DATA statements. Use the shift Q character to signify a 
pixel-ON and a full-stop to signify a pixel-OFF. When you have finished 
drawing your sprite, move the cursor to the top of the screen, then keep 
hitting the RETURN key until you have entered all of the DATA 
Statements. Now type RUN, and the program will generate the sprite 
and the DATA statements needed to generate that sprite. To store these 
DATA statements, use the same method as you used on the last set of 
DATA statements. 
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@ GOTO1@ =: REM «** SPRITE CREATE *** 
1 POKE 650,128:PRINTCHR&X 147): POKES3269 ,@:LIST23-S0 


10 
15 
20 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
6o 
70 
8a 


PRINTCHR&X 147): FOR I=8TOGS : POKES32+1 ,02 NEXT 
POKES3289@ ,6 :POKES3281,6 


GOTO 68 


REM. ..812345678998 1234567890123 
DATA "@.. eeeeeeeeeoosoqoooosese” 
DATA "8. . eeesaseesceosoosooses" 
DATA *@.@..seeeeeeeaeoaoeeeeesn" 
DATA °@..@.. eeeseoeaaoeonoeees" 
DATA "@...@..eeeeeeeeeeeeeeeee" 
DATA “@....@..eseeeesensooesos" 
DATA "@.....@..eeseeeeeeeeeeee" 
DATA “@......@.. eeeeseeeeeeeeo" 
DATA “@.......@..9aeeeneeeeeee" 
DATA "@........@..8eeeeeee0000" 
DATA "@.........@..@@8eeeeee00" 
DATA "@...-.+....@.. 8008800000" 


DATA “@...ccnco ee e O. - COSSSRRCR" 
DATA “@...2ccccceee @. - COBG8888" 
DATA "@. cen cer cece ne Me. OOO8888" 
DATA "@. cece ence een oe O. . OOGRRG" 
DATA “"@. ce cccnncrn cence  @. . OOR88" 
DATA “@.. ccc snare r ena s Oe - C888" 
DATA "@.cecccccncceances Oe - O68" 
DATA "@. cece nec cecccccc se Oe OO" 


DATA "eeeeseseuaeeeaaaeeses. . 6" 

¥=953248 :POKEV+16,1:POKEV+1,50 :POKEV+21,1°5POKEV+t3S ,3:POKE204@, 13 
POKEV+23,1°POKEV+293, 1 

FOR I=97T020:PRINT1O@Q0+I7 "DATA"? SREADAS: FORK=8TO02: T=0 :FORJ=8T07 :B=0 


99 IF MIDS AS,I+K4*84+1,19="@° THENB=1 
108 T=T+Bxet( 7-JOSNEXTIPRINT T3","F SPOKE S32+1434K,-TENEXTEPRINT°'R °F NEXT 
11@ END | 
READY. 
CHECKSUM 

G=335 49=3516 119=129 

1=2478 41=3372 

19=249S 42=3225 TOTAL= 192386 

15=1182 43=309497 

29=476 44=2898 

29=9 435=2759 

39=35967 496=2599 

31=5965 47=2449 

32=4896 48=2296 

33=4728 49=2144 

34=4557 S5G8=S599 1 

35=4387 66=4198 

36=4214 7G=1332 

37=4942 89=4747 

38=3867 99=2497 

39P=34693 198=4591 
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Clucky Chook 


A clucky chook has escaped from the hen house and has gone on an 
egg laying spree. After plugging your joystick into port 2 you must 
control the pan at the bottom of the screen. Catch the eggs before they 
fall and break. The incorporation of ‘Sprite Move’ makes this game both 
fast and addictive. 


VARIABLES 

T = Time between chook changing direction 
AD = Direction of chook 

LAY = Time between laying eggs 

FR = Number of eggs on screen 

| = Temporary variable 

HX = Temporary high x position of sprites 
MT = Temporary sprite collision register value 


TALLY = Number of eggs caught 
end 
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19 
25 


199 


209 
219 
226 


248 
259 
269 
264 
265 
266 
278 


SBS 
319 
314 
315 
320 
3358 
348 


49D 
419 


REM CLUCKY CHOOK 


initialisation routines. 


GOSUB7999 
GOSUBS999 
GOSUB6999 


Set player's direction from joystick. 


POKEDIR+¢1, 15- (PEEK (56329) AND1S) 


Move chook. 


T=T-15 IFT SOTHEN2Z49 
AD=AD¥-1:POKEDIR, PEEK (DIR) +AD 
T=3¥ (RND (9) +1) 


Lay egg. 


LAY=LAY-1: IFLAY >@THENSSS 

LAY=2: IFFR=STHEN 390 

I=ETAB (FR): FR=FR-1 

HX=PEEK (HIGH) 

IF (HXAND1 ) =1 THENPOKEHIGH, PEEK (OTAB+tI ) ORPEEK (HIGH) : GOTO279 
POKEHIGH, (PEEK (ATABtI) ) ANDPEEK (HIGH) 

POKEXSP+2*I, PEEK (XSP) : POKEYSP+2*1, 198: POKEDIR+I,2 


Check if eggs caught or missed. 


HT=PEEK (SCLN) 

FORI=2T0O7 

POKEDIR+¢1, 15- (PEEK (56329) AND15) 

HT=PEEK (SCLN) ORHT 

IF PEEK (YSP+2#I1)<215THENSOS 

IF (HT AND2) =@THENS29 

POKEDIR+1,@: POKEYSP+2¥1I,9:FR=FRtLISETAB (FRI=I:s TALLY=TALLY+ 
1 

NEXT 

GOTO199 
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429 
425 
439 
435 
449 
459 
3989 
319 
329 


6996 
69961 
69295 
6939 
6934 
46935 
6936 


6942 
6943 
6944 
6949 
6959 


799R 
‘7988S 
7G1iG 


7G2G 
7G3D 
7BS31 
7B32 
7948 
7956 
7940 
7B7D 
7985 
71190 


Explode eggs. 


Ask player for another game. 


POKEDIR, 6: POKEDIR+1,9 

POKES4273, 49: POKES4278, 245: POKES4296, 15: POKES4276, 129 
FORI=9TO7 : POKE999+3#1, 25%1I NEXT 
POKES3271, 252: POKES3277, 252 

POKE5S4276, 128 

PRINT" YOU . FRIED . ";TALLY;" . EGGS" 

INPUT’DO . YOU . WANT . ANOTHER . TRY";AS 

IFAS="Y" THENRUN 

END 


Set up screen and sprites. 


FORI=2 TO7: POKEYINC+I, 1: POKECOLSP+1, 7: POKEYSP+2%1,9 

NEXT 

FORT=2TO7:ETAB (1)=I1:NEXT 

FR=7: POKEHIGH, 9: POKEPRI, 255: POKES3277, 9: POKE53271,9 
PRINT" Bo ” 

POKE53289, 2: POKES3281, 6: I=PEEK (SCLN) 
FORI=1924+23¥49T019249+25%49: POKEI, 169: POKES5S296-1924+1,5: 
NEXT 

LV=2: AD=4: T=19:5LAY=5 

POKEXINC+1, 3: POKECOLSP+1, 9: POKEXSP+2, 164: POKEYSP+2, 218 
POKEXINC, LV: POKECOLSP, 1: POKEXSP, 164: POKEYSP, 199: POKEDIR,8 
POKEENSP, 255 

RETURN 


Set up sprite shapes. 


POKE53269,9 
FORI=9T0191:POKE832+1,@: NEXT 

FORI=9 TO 45 STEPS:READ A: POKES32+1,A:READA! POKES33+1,A: 
NEXT 

FORI=6T023: POKE929+1, 255: NEXT 
FORI=9T07: READ A:POKE999+3%1, A: NEXT 
POKE294@, 13: POKE2941,14 
FORI=2642T02947: POKEI, 15: NEXT 
RETURN 

DATAG, G,G,12,5,39,5,26 

DATAG, 126, 135, 249, 127, 248, 63, 248 
DATAL5, 248, 7, 249, 1, 224,1, 224 

DATAS, 64,4,32,4,29,2,8 

DATA24, 24, 69, 69, 60, 69, 24, 24 


Insert ‘Sprite Move” here. 
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CHECKSUM 


G=G 
S=352 
19=355 
25=351 
199=1941 
2G99=1478 
219=2321 
229=11499 
249=1916 
259=1454 
269=1625 
2649=937 
265=49449 
266=2359 
278=36497 
SOGS=937 
310=657 
3194=1941 
SLS=1293 
329=1883 
338=1226 
349=5428 
499=131 
9419=525 
429=1299 
425=2752 
439=2295 
435=1381 
449=645 
459=2112 
5S9B=2257 
9319-914 
329=129 
6999=3733 
69961=131 
6929=1693 
6939=29708 
6939=372 
6935=22168 
6936=4281 
6642=1873 
6943=3892 
69499=3529 
6949=696 
6959=143 
7BBB=S32 
7OBS=17495 
7B1GB=3376 
7B2B==1772 
7OBSB=22G82 
7B3SL=1127 


TOTAL= 


7832=1688 
7G49=143 

7BS9=1977 
7B69=1769 
7B7G=19465 
788G=1187 
7119-14986 


96391 
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Soldier 


The game begins with you as a Soldier within the safety of your tank. 
While you reside within the tank you are protected against the 
continuous barrage of enemy missiles. The objective is to leave the tank 
and weave your way through the mine field while dodging enemy missile 
explosions, and make your way to the ammunition dump behind the 
enemy missile launchers. Carry a single missile back through the mine 
field to your tank and attempt to destroy one of the enemy missile 
launchers. Continue this manoeuvre until all of the launchers have been 
destroyed. This game is joystick controlled. 
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VARIABLES 


TRUE = Logical TRUE compare 
FALSE = Logical FALSE compare 
VID = Start of video chip 

SID = Start of sound chip 

JOY = Joystick location 

BDR = Border colour 

BCK = Background colour 


RB = Sprite register number for first missile 
RM = Sprite register number for current missile 
RP = Sprite register number for player 

RT = Sprite register number for tank 

RV = Sprite register number for player’s missile 
NE = Number of enemies 

NL = Number of land mines 

SP = Speed of player 

SM = Speed of missile 

TS = Speed of tank 

SV = Speed of player’s missile 

XP = X position of player 

YP = Y position of player 

XE() =X positions of missile launchers 

YE() = Y positions of missile launchers 
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599 
338 
caked] 
569 
699 
78D 
729 
738 
79D 
999 


1993 
1926 
1949 
1969 
1976 
1989 
1996 
1119 
1129 
11398 
14999 


1599 
1539 
1999 


2088S 
20997 
2998 
2919 
2929 
2949 
2956 
2869 


REM SOLDIER 
GOSUB1 9999 


Main lcop 


GOSUB1999 

IF (PEEK (JOY) ANDI5)=15 THEN POKE DIR+RP,9:POKE DIR+RT,9 
GOSUB/999 

IF (PEEK (JOY) AND15)=15 THEN POKE DIR+RP,9:POKE DIR+RT,@ 
IF (FD=FALSE) AND(FC=FALSE) THEN 599 

FOR K=@ TO 7:POKE DIR+K,9 !: NEXT 

IF FC THEN GOSUB6é6999 

IF FD THEN GOSUB6é299 

RUN 

STOP 


Move missile 


POKE ENSP,PEEK(ENSP) AND R :R=255 
M=M+1:IF M>NE THEN M=9 

GOSUB 1599 

IF (YY>BM) AND (FX(M)=FALSE) THEN 3999 
IF FX(M) THEN GOSUB 2999 
ML=M5M=INT (RND (9) NE) 

IF FX(M) THEN M=M1:GOTO 1499 
GOSUB 1599 

GOSUB 3999 

M=M1 

RETURN 


Pre-calc reference variables 


RM=RB+M °©RS=2°*RM :RR=255-RS 
XX=PEEK (XSP+RME2) 5 YY=PEEK (YSP+RM¥2) 
RETURN 


Fire missile 


FX (M) =FALSE 

POKE VID+29,PEEK(VID+29) AND RR 

POKE VID+23,PEEK(VID+23) AND RR 

E=RND (9) *#(NE+1) 

XE=XE(E) 5 YE=YE(E) 

POKE DIR+RM, D(SGNCINT (PEEK (XSP+RP#2) /16-XE/16) #16) +1) 
POKE COLSP+tRM, 9 

POKE XSP+RM#¥2,XE:POKE YSP+RM¥2, YE 
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2976 
2686 
299D 
2999 


38GB 
3919 
3925 
3G3B 
3HS1 
3B32 
3I33 
3934 
3849 
3841 
3845 
3958 


3IG6G 


SGID 
S999 


39BS 
3939 
5949 


9958 


IG6D 
IOI? 


4999 
G1l99 


6299 
6299 


POKE HIGH,PEEK (HIGH) AND RR 

POKE ENSP,PEEK(ENSP) OR RS 

IF (PEEK (JOY) AND15)=15 THEN POKE DIR+tRP,@:POKE DIR+RT,@ 
RETURN 


Explode 


FX(M)=TRUE !R=RR 

POKE COLSP+RM, 7 

POKE SID+4,@:POKE SID+4,WAVE+1 

POKE DIR+RM,9 

X=PEEK (XSP+RM¥2)-12!IF X<@ THEN X= 

Y=PEEK (YSP+RM¥2) -16 

POKE XSP+RM%¥2,X 

POKE YSP+RM#€2, Y 

POKE VID+29,PEEK(VID+29) OR RS 

POKE VID+23,PEEK(VID+23) OR RS 

IF FT THEN 3999 

IF ABS(X+12-PEEK (XSP+RP¥2))>24 OR ABS (Y+19-PEEK (YSP+RP¥2) ) 
>28 THEN 3999 

IF SGN (PEEK (HIGH) AND (2“RP) ) =SGN (PEEK (HIGH) AND (2°RM)) THEN 
FD=TRUE 

IF (PEEK(JOY) AND15)=15 THEN POKE DIR+RP,@:POKE DIR+RT,@ 
RETURN 


Move soldier 


POKEDIR+RP, 15- (PEEK (JOY) AND1S5) 

IF (PEEK (BAKCLN) AND (2*RP) )=FALSE THEN RETURN 

IF (PEEK (YSP+RP¥2))<YM THEN POKE COLSP+tRP,1°FG=TRUE: GOTO 5 
GIP 

FD=TRUE:POKE DIR+RP,9:S1=M: S2=FX (M) © S3S=R°M=RP-RB: GOSUB 159 
g 

GOSUB 3990: M=S1°FX(M)=S2:5S1=R: R=S3 

RETURN 


All enemys destroyed 


PRINT" 3 SOLDIER . DEAD" 
RETURN 


Soldier dead 


REM SOLDIER DEAD 
RETURN 
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6399 
6396 
6397 


6388 


4399 
6319 
6328 
6325 
6339 
6346 
46359 
6355 
6369 


6365 


6366 
64999 
46999 


7BOBS 
7G1G 
78298 
7825 
7B3B 
7B35 


78358 


7166 
7126 
7159 
7168 
7176 


7175S 


7176 
7177 
7139 
7181 
7299 


IF F2=FALSE THEN 6319 

POKE ENSP, PEEK (ENSP) ANDS1 

POKE VID+23,PEEK(VID+23) ANDS1:POKE VID+29, PEEK (VID+29) ANDS 
1 

POKE COLSP+RV,@!:F2=FALSE: FH=FALSE:FV=FALSE: IF ED>NE THEN F 
C=TRUE 

RETURN 

Y=PEEK (YSP+RV2) 

IF FH THEN IF Y<YE(EH) +30 THEN 6339 

IF Y>BT+3@ THEN RETURN 

POKE DIR+RV,@ 

S1=M:S2=FX(M)!S3=R!IM=RV-RB:GOSUB 1599 

GOSUB 3999:M=S1:FX(M)=S2:S1=R!:R=S3 

IF EH=-1 THEN 6499 

POKE 214, (YE(EH)-5@)/8:PRINT:POKE 211, (XE(EH) -24) /8:PRINT 

EBS; 

FOR K=@ TO NES IF XE(K)=XE(P2) THEN XE(K)=XE(P1) :YE(K) =YE(P1 
) 

NEXT K 

F2=TRUE 

RETURN 


Move tank/soldier 


IF FV THEN GOSUB 46399 

J=PEEK (JOY) 

IF FT THEN 7199 :REM(IE. TANK) 

IF PEEK (YSP+RP¥2)<YT THEN S999 

IFABS (PEEK (XSP+RP#2) -PEEK (XSP+RT¥2))>19 THEN 5999 

IF SGN (PEEK (HIGH) AND (2°RP) ) < >SGN (PEEK (HIGH) AND (2°RT) ) THEN 
5OOG 

FT=TRUE:POKE ENSP, PEEK (ENSP) AND(255-(2°RP))!:POKE SID+11,12 
9 

IF FL THEN 7399 :REM-FIRE 

POKEDIR+RT, 12-(JAND12):POKE SID+8, 15+ (PEEK (DIRtRT) $9) ¥5 
IF ((JAND16)=@) AND (FG=TRUE) THEN FL=TRUE: GOTO7299 

IF (JAND1)=1 THEN 7299 

FT=FALSE:POKE DIR+RT,@:POKE DIR+RP,@:POKE SID+11,128:POKE 
COLSP+RP,9 

POKE XSP+RP¥2, PEEK (XSP+RT¥2) :POKE YSP+RP¥2, PEEK (YSP+RT%2) - 
22 

POKE HIGH, PEEK (HIGH) AND (255-2*RP) 

POKE HIGH, (PEEK (HIGH) OR ( (2“RP) ¥SGN (PEEK (HIGH) AND (2°RT)))) 
POKE ENSP, PEEK (ENSP) OR2*RP 

PK=PEEK (VID+39) 

RETURN 
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7389 
7359 
7369 
7378 
7389 
7398 
7499 
7428 
7438 
7446 
7458 
7509 
7519 
7529 
7539 
7599 
7698 
7626 


7638 
7649 
7659 
7669 
7679 


74675 
7489 


769D 
7695S 


7IIP 
8969 
8919 


8015 
8926 
8930 
8949 
8958 
FDIS 
9G1G 
IDB2D 
9ID3D 
9B4D 


Fire 


FL=FALSE: FG=FALSE: FH=FALSE: FV=TRUE: EH=-1 

POKE DIR+RV, 1 

X=PEEK (XSP+RT¥2) 5 Y=PEEK (YSP+RT#2) 

FOR K=@ TO NE 

IF ABS(X-XC(K))<19 THEN FH=TRUE: EH=K:XC(K)=-1 

NEXT K 

IF EH=-1 THEN 7599 

ED (EH) =-1:ED=ED+1 

FOR K=@TONE:IF ED(K)=9 THEN P1=K 

NEXT K 

P2=EH 

POKE XSP+RV*¥2,X:POKE YSP+RV*2, Y 

POKE HIGH, PEEK (HIGH) AND (255-2°*RV) 

POKE HIGH, (PEEK (HIGH) OR( (2“RV) ¥SGN (PEEK (HIGH) AND (2°RT)))) 
POKE ENSP, PEEK (ENSP) OR (2*RV) 

RETURN 

FOR K=@ TO 3¥64-1:READ D!IPOKE 13%64+K, D:NEXT 

DATA G,9,G,224,G,14, 224,9,14, 224,95, 14, 48,95, 24, 24,9,48,12,5 
6,96 

DATA 6,124,192,3, 255, 128,89, 254,9,1,255,08,1,255,9,9, 254,G,1 
,255,9 

DATA 3,125,128,6,56,192,12,8, 96, 24,5, 48, 249,G, 38, 224,9,14, 
224,9,14,9 

DATA G,46,9,9,49,8,8,48,G,62, 111,62, 127, 239, 254, 179,178,17 
1,175,239, 235 . 

DATA 175,239,251, 127,239, 254, 63, 238, 248, 63,171, 248,63,171, 
248,63, 215,248 

DATA 63, 255, 248, 63, 255, 2498, 127, 255, 254, 175, 255, 251, 167, 255 
»235 

DATA 176,170,171, 127,255, 254, 62, 127,62,9 

DATA G,192,G,1,96,8,2,249,G, 2, 244,9,1,196,9,9,259,9,3,252, 
g 

DATA 55,252, 9,47, 252,9, 47, 252,08, 31, 232,G9, 31, 224,9,11,249,9 
53,249 

DATA G,7,24G,G,7,249,5,7,248,5,7, 232,G,11, 232,9,9,176,5,6, 
G,9,2 

RETURN 

XINC=49309: YINC=49317: DIR=49391! ATAB=49293: OTAB=49285 
PRI=53275: SCLN=53278: MULT=53276: BAKCLN=53279: ENSP=53269:CO 
LSP=53287 

XSP=53248! YSP=53249! HIGH=53264 
FORI=9T0148: READA: POKE49152+1, A: NEXT 

FORI=9TO7: POKEDIR+I, 9: POKEXINC+1, 9: POKEYINC+I1,@: NEXT 
POKE56333, 127: POKE788, 9: POKE789, 192: POKE56333, 129 

RETURN 

DATA162, 7, 138, 19, 168, 24, 189, 149 

DATA1L92, 133,251, 79, 251,144, 14,185 

DATAL, 298, 291,51, 144,7,56, 253 

DATA145, 192, 153, 1, 298, 79,251,144 

DATA14, 185, 1, 268, 201, 226, 176,7 
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99S5G 
FBOD © 
9DB7B 
9B8BS 
9DID 
9198 
911G 
9126 
9130 
9149 
91508 
9169 
F17B 
91382 


1999G 
19B93 
19695 
19919 
19911 
19B15 
19626 


19921 


1G@G22 
19925 
1LGGB3A 
16G35 
19GG36 
19937 
19G38 
19GG50 
19966 
19129 
191398 
19156 
19290 
19229 
19236 
19240 
19256 
19249 
19276 
193596 
19519 
19515 
19526 
19699 
1GII9 


DATA24, 125,165, 192, 153, 1, 298, 79 
DATAZ51, 144, 36, 173, 16, 208, 61,133 
DATA192, 208,7,185,9, 298, 291,25 
DATA144, 21, 185,98, 208,56, 253, 157 
DATA192, 153,8, 208,176,9,173,16 
DATA2@8, 61,141,192, 141, 16, 208, 79 
DATAZ51, 194,36, 185, 9, 208, 201,64 
DATA144, 11,173, 16,298, 61,133,192 
DATA2G8, 21,185, 9, 298, 24, 125,157 
DATA192, 153,G, 208, 144,9,173,16 
DATA2G98, 29, 133,192, 141, 16, 298, 292 
DATA16, 128, 76,49, 234,1,2,4 
DATAS, 16, 32, 64, 128, 254, 253, 251 
DATA247, 239, 223,191, 127 


Initialisation 


GOSUB 7699 
GOSUB sg9ag 

TRUE=1:FALSE=9 

VID=53248 :;SID=54272 :IOY=5632¢8 

BDR=9: BCK=2 

RB=9: RM=RB: RP=5: RT=46: RV=7 

NE=S-1:NL=19:ES=" 68 Law — 4] ] 68 8 8 blhlCUell 
O8 oe oe = ~] i — SP OSMINES=" =" 
DUMPS="L2 2 wh . “WS 3 88 8B 86 68 ee lull le 
ni. 4" 

EBS=" my .. BE 2 88 EE @ . i] O82 OB. we” 
D(9)=6:D(1)=2:D(2) =198 

SP=1°SM=1:°5TS=1:SvV=1 

POKE XI+RP,SP:POKE YI+RP,SP 

POKE XI+RT,TS:POKE YI+RT,TS 

POKE XI+RV,99O:POKE YI+tRV,SV 

FOR K=@ TO NE!:POKE XI+RM+K,SM!:POKE YI+RM+K, SM: NEXT 
BT=59: BB=239: BL=24: BR=255: BM=12@0 

XT=159: YT=BB-Si XP=XT3 YP=YT 

FOR E=@ TO NE!:READ XE(E), YE(E) :NEXT 

DATA 8,11,7,7,14,3,21,7,28, 11 

YM=YE (2) 5 XG=XE (2) : YG=YM-3 

SID=S4272 :WAVE=128 :Ex=1 

FOR K=9T024: POKESID+K, @: NEXT 

FOR K=98TO24: READ D:POKE SID+tK, D: NEXT 

DATA 9,1,9,9,128,19,9 

DATA 9,19,9,9,128,9,89 

DATA G,9,9,9,9,9,0 

DATA 9,199, 243,47 

GOSUB 11999 

FOR E=9 TO NES XE(E) =24+XE(E) #8: YE (E) =SO+YE(E) ¥8 

XC (EE) =XE(E) S YC (CE) =YECE) :NEXT: YM=S0+YMES 

PK=PEEK (VID+39) +PEEK (VIDt31) 

FOR K-98 TO NESFX(K) =TRUE: NEXT K:R=255 

RETURN 
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Screen setup 


11966 PRINT" By "3 

11912 POKE 53289, BDR:POKE 53281, BCK 

11915 FORK=1TONL: POKE214, 6+RND(@) ¥19: PRINT: POKE211,RND(@) ¥4@: 
PRINT MINES$3 : NEXT 

11917 POKE 214, YG: PRINT: POKE211,XG:PRINT DUMPS; 

11918 FOR E=9 TO NE: POKE214, YE(E) : PRINT: POKE211,XE(E):PRINT ES}: 
NEXT 

11959 POKE 2@4@+RT,14:POKE 2@49+RP,15:POKE 2949+RV,13 

11955 FOR K=@ TO NE!POKE 2@49+RM+K, 13:NEXT 

11198 POKE ENSP,®@ 

1113@ POKE XSP+RP¥2,XP:POKE YSP+RP*2, YP 

11135 POKE XSP+RT¥2,XT!POKE YSP+RT*2, YT 

11146 POKE COLSP+RP,9:POKE COLSP+RT,@:POKE COLSP+RV,G 

11159 FOR K=@ TO NE:POKE COLSP+RM+tK, 1:NEXT 

11199 POKE ENSP, 2°RP+2°RT!:POKE HIGH, 9 

11195 POKE VID+23,9:POKEVID+29,6 

11197 POKE VID+29,2°RP 

11999 RETURN 


CHEXSUM 
J=8 29G7=1921 293G=2637 
19=492 2998=1997 994G=4616 
39B=348 2919=1228 3959=4841 
I3SG=3466 2929=1438 IG69=2521 
35G=352 2949=4149 IBII=143 
769=3466 2959=993 6999=11645 
699=2347 2969=2524 6199=143 
7986=1687 297G=1433 6299=9 
726=856 298B=1599 6299=143 
739=819 299 B=3466 6399=1255 
79IDB=1L39 2999=143 6396=14469 
999=145 SIIGB=1398 6397=4822 
1996=1887 3G1G=997 6398=35624 
1929=1499 3925=20857 6399=143 
1949=352 SG3G=8235 6319=1419 
1969=2389 SG31=2745 632G=1961 
1G97HB=19G12 3G932=1681 6325=11646 
1989=16469 S3H33=1116 6339=831 
1996=1711 3G9349=1117 6394G=2911 
1119=352 3B4IG=1999 6359=2521 
1126=348 S3G491=1895 6355=1195 
1139=387 3945=691 6369=3744 
1499=143 S$9359=S5511 6365=4311 
1399=2524 3969=4672 6366=296 
LS539=3135 39BID=3466 6999=629 
1999=143 SPPI=14943 6999=143 
2995=899 IDIDB=29844 789G=826 
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7B1G=786 

7B2B=743 

7B25=2894 
7B3B=3644 
7BSS=494293 
7BSGB=4266 
718G=735 

7126=4258 
7159=3465 
7168=1199 
7178=49986 
7175=49997 


' 7176=2123 


7177=3895 
7189=1749 
7181=1153 
72ZI9=143 

739B=39491 
735SB=831 

736B=2952 
7S7BAa7499 

7389=3569 
739B=2G6 

74OB=1195 
7429=1583 
7494398=2196 
7499=296 

749458=456 

739GB=2371 
7S1LGB=2123 
7328=3897 
7539=1899 
7FSIPIRA143 

76996=2729 
74629=3286 
7639=34491 
7649498=3726 
7659=4948 
7469=4222 
7679=3333 
76735=2879 
7689=3999 
7O69B=3425 
7OISH=3339 
7I99H=143 

BIDGB=437B 
8919=4935 
8915=24943 
8929=2186 
8939=36496 
8849=2598 
8959=1435 

9GGBB=1646 
9B1B=1773 
9G29=1527 
9B3GB=17G1 


9949=1574 
9G5GB=1642 
9GE6G=1726 
997G=1571 
9G8B=163G 
9G9G=1586 
919G=1793 
9119=1651 
9129=146488 
91 SBG=1638 
9149=1584 
9159=1769 
9149=1346 
917G9=1599 
9189=1165 
19989=356 

19GB3=355 

199G95=1274 
19G19=2293 
19911=983 

19915=2493 
1GB2G=6385 
19921=3974 
19922=1771 
19925=1571 
19B3GB=1833 
19935=1853 
19936-1863 
16937=1796 
1GG38=35135 
1GBSG=271G 
19869=2534 
19126=1923 
191 398=1432 
191356=2252 
1G6299=1922 
19228=1722 
19239=2998 
19249=986 

16250=1949 
19269=799 

19279G=783 

193599=492 

19519=3832 
193515=3227 
19529=2266 
19699=25964 
1G999=143 

11999=435 

11912=1551 
11915=4394 
11917=2634 
11918=3299 
119356=2853 
11955=2228 
11199=574 
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TOTAL= 


11139=2534 
11135=2538 
11149=3321 
11159=2338 
11199=2213 
11195=1626 
11197=1132 
Li999=143 


394269 


Birthday Party 


CaS 
Be a 


HU 
a 
8 
M 

H 

HM 
i 
H 
nN 


2 Se Gos box See St 
oo vobe ook node on wake 


This program makes use of the Sprite Management Program, described 
earlier in the book. 


BIRTHDAY PARTY is an animated birthday greeting for your favourite 
mother. 


You will see a birthday cake appear, a greeting, then Mum comes on, 
and blows out the candles! 


This is achieved by using Sprite Movement as well as switching sprites 
(to get animation). 


You can use this idea and the Sprite Management Program to create 


your own individualised greeting cards, or cartoon animation 
sequences, or amusing title page animations for your own programs. 
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19G 
119 
129 
139 


206 
219 
226 
239 
249 
259 
269 


59S 
319 
326 
33d 


460 
419 
426 


ve 5 2) 
9198 
328 
53d 
349 
55d 


969 


REM BIRTHDAY CARD 


Set up Sprite Management, make sprites big and change border colour. 


GOSUB 83999 

XXPND=53277: YXPND=53271 

POKE XXPND,255:POKE YXPND, 255 
PRINT" By EJ "SPOKE 53289,6 


Define cake as sprites 0-3, get data, and enable those sprites. 


FOR SP=9 TO 3 

POKE COLSP+tSP, 1 

READ X,Y: POKE XSP+2*¥SP,X:POKE YSP+2*SP, Y 
POKE 2949+SP, 249+SP: SHAPE=64% (249+SP) 

FOR I=9 TO 62: READ A:POKE SHAPE+I,A: NEXT I 
NEXT SP 

POKE ENSP,15 


Get alternate shapes for candles blowing. 


FOR SP=9 TO 1 

SHAPE = 64%(244 + SP) 

FOR I=8 TO 462:READ A: POKE SHAPEtI,A: NEXT I 
NEXT SP 


Print message. 


FOR I=1 TO 19 
PRINT "HAPPY . BIRTHDAY, MUM" 
NEXT I 


Define mum as sprites 4-7, get data, set colours, and enable those 


Sprites. 


FOR SP=4 To 7? 

READ X,Y:POKE XSP+2¥SP,X!:POKE YSP+2*SP, Y 

POKE 2949+SP,242+SP:SHAPE= 64 * (242+SP) 

FOR I=@ TO 62:READ A:POKE SHAPE+I,A:NEXT I 

NEXT SP 

POKE COLSP+4,12:POKE COLSP+5,15:POKE COLSP+6,3:POKE COLSP+ 
753 

POKE ENSP, 255 
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Get alternate shape for mum blowing candles. 


699 SHAPE=464 * 259 
619 FOR I=8 TO 62:READ A: POKE SHAPE+tI,AS NEXT I 


Set movement speed, get mum moving left until she reaches cake, then 


stop moving. 


79D FOR SP=9 TO 7 

716 POKE XINC+SP,1:POKE YINC+SP,1 

7268 NEXT SP 

73GB FOR SP=4 TO 7:POKE DIR+SP,4:NEXT SP 
749 IF PEEK(XSP+8) > 149 THEN 749 

738 FOR SP=4 TO 7:POKE DIR+tSP,@:NEXT SP 


Get correct position for mum in front of cake. 


89g FOR SP=4 TO 7 
819 READ X,Y: POKE XSP+2*SP,X:POKE YSP+2*SP,Y 
829 NEXT SP 


Mum is blowing candles: 


Change candle and face sprites in delay loop 


83d FOR I=1 TO 4 

842 FOR W=1 TO 269: NEXT W 

359 POKE 2942,294:POKE 2943,245:POKE 2945, 259 
869 FOR W=1 TO 269: NEXT W 

879 POKE 29492,2942:POKE 2943,2493:POKE 2945,247 
83g NEXT I 


Big blow : move cake off the screen 


IDB POKE 2942, 244: POKE 26943,245:POKE 2945, 259 

91D FOR PSS=29 TO @ STEP-1 

92D FOR SP=98 TO 2 STEP 2 

93D POKE XSP+2*¥SP,PSS:POKE XSP+2+2*#SP,PSS+t48 

949 NEXT SP 

95D NEXT PSS 

96D POKE ENSP, 259 

97GB FOR PSS= 47 TO @ STEP-1:POKE XSP+2,PSS:POKE XSP+6,PSS: NEXT 
PSS 

989 POKE ENSP, 249 


201 


99D 

1969 
8998 
891d 


8915 
89295 
S938 
8949 
8959 
9BGS 
9GB1B 
9926 
PDS 
9B4G 
9OBSB 
9969 
9B7DB 
9S8E 
9DID 
9195 
9119 
91296 
913d 
9146 
9159 
9169 
917G 
9186 
19696 
19616 
199269 
1GB3H 
19649 
19959 
19869 
19676 
199389 
19996 
19196 
1G11G 
1G129 
1G139 
19149 
19150 
19169 
19176 
19189 
19196 
19206 


Smiling mum. Wait forever. 


POKE 2945, 247 

GOTO 1996 

XINC=49369: YINC=49317: DIR=493G1: ATAB=49293: OTAB=49285 
PRI=53275: SCLN=53278: MUL T=53276: BAKCLN=53279: ENSP=53269!:CO 
LSP=53287 

XSP=53248: YSP=53249: HIGH=53264 
FORI=9T0148: READA: POKE49152+1, A: NEXT 
FORI=9T07: POKEDIR+1,@:POKEXINC+1,@: POKEYINC+1,@!NEXT 
POKE5S6333, 127! POKE788, G: POKE789, 192: POKES6335, 129 
RETURN 

DATA162, 7, 138, 19, 148, 24,189, 149 
DATA192, 133, 251, 79, 251,144, 14,185 
DATA1, 268, 261,51,144,7,56, 253 
DATA165, 192,153, 1,298, 79,251,144 
DATAL4, 185, 1, 208, 291, 226,176,7 
DATA24, 125, 165, 192, 153,1,298,79 
DATA251, 144, 36, 173, 16, 208, 61,133 
DATA192, 208, 7, 185,94, 298, 291,25 
DATA144, 21, 185, 9, 268, 56, 253,157 
DATAL92, 153,94, 208, 176,9,173,16 
DATA2@8, 61,141,192, 141,16, 208,79 
DATAZS1, 144,36, 185,9, 208, 201,44 
DATA144, 11,173, 16, 268, 61,133,192 
DATA2@8, 21,185, 9, 298, 24,125,157 
DATA192, 152,6, 208, 144,9,173,16 
DATA2@8, 29, 133,192,141, 16, 298, 292 
DATALG, 128, 76, 49, 234,1,2,4 

DATAS, 16, 32, 64, 128, 254, 253,251 
DATA247, 239, 223,191,127 

DATA2@, 299 

DATAS, 144, 16,5, 254, 16,5 
DATA111,249,5,111,255,5,111 
DATA255,5,111,255,5,111,255 

DATAS, 111, 255,5,111,255,5 

DATA111, 255,5,111, 255,13, 111 
DATA255, 23,111, 255,35,111, 255 
DATAS3, 239, 255, 16,127, 255,16 
DATA31, 255, 12,9,31,3,128 
DATAG, 9, 129,9,98,7,255 

DATAGS, 299 

DATAS, 9, 224, 8, 127, 149,15 

DATA221, 169, 255, 221,149,255, 221 
DATA16G, 255, 221, 169, 255, 271,168 
DATA255, 221, 169, 255, 221, 169, 255 
DATA221, 160, 255, 221, 169, 255, 221 
DATA176, 255, 221, 232, 255, 221,196 
DATA255, 223, 132, 255, 222,8, 255 
DATA248,8, 248,9,48,9,1 
DATA1L92, 9, 254, 9,255,959, 

DATA2@, 158 
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192196 
19229 
19239 
19249 
19259 
18269 
198276 
19286 
196296 
19399 
1931G 
19329 
19332 
19349 
196356 
19369 
193792 
19G38h 
1939¢6 
1L95GP 
19519 
19520 
163534 
163549 
19556 
193569 
195709 
19589 
19599 
19699 
196196 
19629 
19639 
19649 
19659 
194669 
19676 
19689 
19696 
11999 
11619 
11626 
11936 
11949 
11956 
11969 
11979 
11986 
119998 
11199 
11119 
11129 
11136 
11149 
11156 


DATAG,9,9,9, 
DATAG,9,9,9, 
DATA2,9,1,9,2, 
DATAD, 64,2,9,9, 
DATAL, 2, 2,65, 2,9,45 
DATA18,9,65,18,2,81,2 

DATA2, 81,15, 2,67, 249,2 
DATA126,9,3,128,16,2,16 
DATA16, 4,16, 16,4,16,16 

DATAGS, 158 

DATAD,9,9,9,9,9,8 
DATAG,G,64,9,9,64,128 
DATAG,9,128,9,8,2,5 
DATAG4, 2, 64, 64, 128, 64, 64 
DATAL28, 9, 64, 138,9, 72,138 

DATAG4, 72, 139, 64, 64, 138,64 
DATAZ4@, 138, 64, 15,194,649, 
DATAG2, 64,8,1,192,8,8 
DATA32, 8,8, 32, 8,8, 32 

REM ALTERNATE SHAPE LEFT CANDLES 
DATAG,9,9,9,9,9,2 
DATAG,9,9,9,9,9,9 
DATAD,2,9,29,9,9,0 

DATAG, 7,2,1,192,2,8 

DATAL, 50,14,645,2,9,65 
DATAZ2, 2,65, 114,2,65,2 

DATA2, 241,15, 2,67, 24G,2 
DATA126,4,3,128,16,2,16 
DATA146,4, 16, 16,4, 16,16 

REM ALTERNATE SHAPE RIGHT CANDLE 
DATAG,2,9,6,9,9,8 
DATAG,9,9,9,9,9,9 

DATAG, 192,9,9,3,128,9 
DATAG64, 9,9, 64,142,9,64 
DATA129, 192,64, 139,9,64, 138 
DATA64, 64, 139, 64,56, 139,64 
DATAZ4@, 186, 64,15, 194,64, 
DATAG2, 64,8,1,192,8,8 
DATA32, 8,8, 32, 8,8, 32 

DATA233, 149 

DATAL, 255, 9,15, 255, 192,43 
DATA255, 224, 127, 255, 248, 255, 255 
DATA252, 255, 255, 252, 255, 255, 254 
DATA7, 255, 254, 1,255, 255,9 
DATA255, 255,9,63,255,9,15 
DATA255, 9,15, 255,98, 31,255 

DATAG, 31, 255,1,191,254,1 
DATA255, 254,1, 255, 254,1, 255 
DATA252, 8, 255, 248, 8, 127,192 
DATA227, 196 

DATAG,9,9,9,9,9,9 

DATAD,9,9,9,9, 39,127 
DATA128, 31, 255, 128,15,127,128 
DATAG7, 127, 128, 127, 255,128, 95 
DATA255, 128,63, 255, 128,125,255 


6; 
2; 
g 
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11168 DATA128,4,255, 128,47,127,128 
11176 DATA16, 127,128,16, 127,128, 24 
11188 DATA255, 128, 31,255, 128, 15,248 
11198 DATAG,7,128,9,9,9,8 

11298 DATA255,179 

11218 DATAG,9,9,9,9,9,5 

11228 DATAG,9,9,126,9,5,86 

11238 DATAG,21,85,9,85,85,9 

11248 DATAS5S, 85, 192,85, 85,64,85 
11256 DATASS, 64, 85,85, 64,85,85 
11268 DATA64,85,85, 64, 85, 85, 64 
11276 DATASS, 85, 64,85, 85, 64,85 
11289 DATASS, 64,85, 85,64,85,85 
11299 DATA64, 85, 85, 64, 85, 85, 64 
11398 DATA297,179 

11318 DATAG,9,9,9,9,9,9 

11326 DATAG,9,9,9,9,9,9 

11338 DATAG,9,9,9,9,248,9 

11349 DATA3,84,1,3,84,5,5 

11358 DATA8S,85,5,85,85, 13,85 

11369 DATAS5, 13,85, 85, 21,85,85 
11378 DATA21,85, 85, 21,85,85,53 
11389 DATAS8S,85,53,85,85,85,85 
11399 DATASS, 85, 85,85, 85, 85,85 
1149@ REM ALTERNATE DATA FOR FACE 
11418 DATAG,9,9,9,9,9,05 

11429 DATAG,9,9,9,9,30,127 

11438 DATA128, 31,255,128, 63, 255,128 
11449 DATA14, 127,128,111, 255, 128,95 
11458 DATA255, 128,191, 255, 128,123,255 
11469 DATA128, 135, 255, 128, 255, 255, 128 
119478 DATA2S5, 255, 128,95, 255, 128,127 
11489 DATA255, 128,63, 255, 128,63, 248 
11499 DATAG,15, 224,9,9,5,9 

11599 DATA149, 149 

115198 DATA134, 146 

1152@ DATA162,179 

11539 DATA114,179 


CHEXSUM 

B= 329=23494 7BB=7351 
196=355 339=297 7IG=1936 
119=1866 49G=711 7?29=297 
126=1692 919=1684 73GB=29798 
L39=16913 429=296 7494B=1619 
299=751 96G=751 7I9=2666 
21G=1966 319=2822 89B=751 
229=2822 I2G=2946 819=2822 
239=2942 S3G8=2344 829=297 
249=2344 349=297 839=655 
258=297 3U9=4167 849=1679 
2698=635 I6G=696 859=1952 
3HB=751 699=1628 849=1979 
319=1475 619=2344 87B=1947 
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889=206 
999=1952 
91G=1395 
92G=979 
93G=33G2 
949=297 
959=383 
96G=692 
979=4979 
989=691 
999=581 
1999=579 
SGGG=4379 
8919=46935 
8915=2443 
892G=2186 
893G=3646 
8949=2598 
8959=143 
998B=1646 
9G1G=1773 
992G=1527 
9A3SG=17G1 
9949=1574 
9G5G=1642 
9G6G=1726 
9G7G=1571 
9G8G=163 
999G=1586 
91 GBG=17G3 
9119=1651 
9128=1688 
913G=1638 
9149=1584 
9159=1769 
91469=1346 
917G=1598 
9189=11465 
19999=449 
19@19=1177 
19929=1385 
19G3G=1389 
19G49=1286 
19959=1448 
19969=1539 
1997G=1456 
19989=1218 
19999=1614 
19199=452 
19119=1218 
19126=1631 
19138=1635 
19149=1635 
19159=1631 
19169=1636 


19179=1534 
19189=1126 
1G91998=1178 
19296=447 
1G9219=799 
1G22H=799 
1G239=865 
19249=858 
1G259=924 
19269=1939 
196279=1191 
19239=1164 
1929G=1999 
1G38B=459 
1LG31G=799 
1G3S29=1914 
19338=993 
19349=1239 
1G93359=1296 
19369=13338 
1937G=1331 
19389=19649 
1G39G=97 1 
19599=G 
1G518=799 
1G5S2G=799 
19539=869 
193549=913 
19558=19852 
19566=1939 
19579=1147 
19589=1164 
LESPB=1 899 
19698=9 
166168=799 
18626=799 
1863G=1959 
19694G=1103 
19659=1421 
19669=1332 
19676=1345 
184689=1649 
1G699=971 
11999=498 
11919=1283 
11629=1652 
11939=1644 
11449=1288 
119359=1275 
11969=1276 
11979G=1229 
L1GB9=13971 
11996-1498 
11199=564 
11L119=799 
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TOTAL= 


11129=979 
111398=1534 
11194@=1525 
11159=1584 
11169=1462 
11179=1445 
11189=1522 
11199=996 
112669=399 
L1I216=799 
11229=973 
11236=1949 
11249=1299 
112596=1245 
11269=1245 
11279=1255 
11289=1245 
11299=1245 
11399=498 
1131G=799 
11329=799 
LLIS3PG=912 
113549=919 
11356=1167 
11369=1244 
11379=1235 
1138@9=1255 
11399=1252 
11499=G 
11419=799 
11429=9769 
119439=1535 
11449=1523 
11456=1643 
119466=1652 
11479=1587 
11489=1527 
11499=982 
11599=599 
11519=562 © 
11529=5682 
11539=496 
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COMMODORE 64 
GAMES BOOK 2 


MELBOURNE HOUSE REGISTRATION CARD 


Please fill out this page and return it promptly in order that we may keep 
you informed of new books and software and special offers that arise. 
Simply fill in and indicate the correct address on the reverse side. 


DVIS. Bote 8 reas cnetsres setae niece Bie nan ede os hg ete as’ aac oem adagettea ds 4 


2 ply 2 woe A Se So oa Stein Sneha bnew es COGG- 2th nectnens. 

Where did you learn of this product? 

: [] Magazine. If so, which one? ... 0... cece cece cence neeeeuees 
_] Through a friend 

i _] Saw it in a Retail Shop 

; [] Other. Please specify ......... 0... c ccc cece cece eee e nee 
Which magazines do you purchase? 

; MOGUIAHY< “Sina 5.0sp rte wearowe de ecstmaset is btdaadada dg Sua eudtes 
OCCAaSsiOnally:. irsasds a aataeies. ca Aes ads ona ie Eau eend hone anes 

; What Age are you? 


[110-15 L] 16-19 L_] 20-24 [) Over 25 
We are continually writing new material and would appreciate receiving 
your comments on our product. 


How would you rate this book? 


TC Excellent [1] Value for money 
L] Good (_] Priced right 
i L.] Poor ] Overpriced 


Please tell us what books and software you would like to see produced 
for your COMMODORE 64. 


PUT THIS IN A STAMPED ENVELOPE AND SEND TO: 


In the Cnited States of America return page to: 
Melbourne House Software Inc., 347 Reedwood Drive, 
Nashville TN 37217. 


In the Cnited Kingdom return page to: 
Melbourne House (Publishers) Ltd., Melbourne House, Church Yard, 
Tring, Hertfordshire, HP23 5LU 


In Australia & New Zealand return page to: 
Melbourne House (Australia) Pty. Ltd., 70 Park Street, 
south Melbourne, Victoria, 3205. 
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A. 


Just when you thought it was safe to go back to your micro... 
By popular demand here’s 30 more exciting, original games for 
your Commodore 64. 


Every game is new! And every game has been specifically 
designed with easy to understand sub-structures so you learn 
programming skills as you go. 


There’s arcade games, strategy games and games you can 
_modify and develop yourself. And with CHEXSUM, typing in is 
easier, and mistakes are quickly located. 


Commodore 64 owners — see if you can keep up with the latest 
release from the Commodore 64 Games experts. 


Reviews of our original Commodore Games Book: 


“The best software games book available for the machine” 
— Commodore User. 


“For a Commodore 64 games enthusiast this book is a must” 
— Personal Computer News. 
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